Function Rad2Dec(rads As Long) Rad2Dec = ((rads * 180) / 3.141592654) End Function Function Dec2Rad(decs As Long) Dec2Rad = ((decs * 3.141592654) / 180) End Function