In the worksheet, you have to use that function like:

[C2]=decdeg(B2)

And copy down. Also,

[E2]=decdeg(D2)

Finally, your format of how you enter the Northing and Easting data in the worksheet must have changed since you had this function developed. I suspect from looking at the code that you used to enter it as:

degrees (space) minutes (space) seconds (space)

Now, you're entering it as:

degrees.minutes'seconds" (using the funny single and double quote characters).

Here's your revised code leveraging your new data entry approach. I tested the result versus an online calculator and this function is correct 100%:

```
Public Function DecDeg(cl As Range)
Dim pos1 As Long, post2 As Long
Dim deg As Double, min As Double, sec As Double
pos1 = InStr(1, cl.Value, ".")
pos2 = InStr(pos1 + 1, cl.Value, Chr(146)) 'dipthong character
pos3 = InStr(pos2 + 1, cl.Value, Chr(148)) 'right quotation character
deg = Val(Mid(cl.Value, 1, pos1 - 1))
min = Val(Mid(cl.Value, pos1 + 1, pos2 - 1))
sec = Val(Mid(cl.Value, pos2 + 1, pos3 - 1))
DecDeg = deg + Val(min & Format(sec / 60, ".0000")) / 60
End Function
```

See attached.

Enjoy!

Dave

GPS-Villages-Macro2.xlsm