Here's the code:
Public Function TMtoLL_VN49(output As String, East As Double, North As Double, dp As Integer) As Variant
'Hardwired WGS84 and UTM Zone 49 N (CM 111 E)
Dim Projection As String, InputEllipsoid As String
Projection = "UTM Zone 49N"
InputEllipsoid = "WGS84"
TMtoLL_VN49 = TMtoLL(Projection, InputEllipsoid, output, East, North, dp)
End Function
It is part of a set of functions that I wrote many years ago to do map projection calculations. I use these functions all the time and they work consistently and reliably, when called from a cell.
I'm going to keep deleting functions until the error goes away.
Bookmarks