I just added a UDF which i got from Microsoft Help. The UDF helps me to convert DMS into decimal degrees. The UDF looked like this:

<code></code>

Function Convert_Decimal(Degree_Deg As String) As Double ' Declare the variables to be double precision floating-point. Dim degrees As Double Dim minutes As Double Dim seconds As Double ' Set degree to value before "°" of Argument Passed. degrees = Val(Left(Degree_Deg, InStr(1, Degree_Deg, "°") - 1)) ' Set minutes to the value between the "°" and the "'" ' of the text string for the variable Degree_Deg divided by ' 60. The Val function converts the text string to a number. minutes = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "°") + 2, _ InStr(1, Degree_Deg, "'") - InStr(1, Degree_Deg, _ "°") - 2)) / 60 ' Set seconds to the number to the right of "'" that is ' converted to a value and then divided by 3600. seconds = Val(Mid(Degree_Deg, InStr(1, Degree_Deg, "'") + _ 2, Len(Degree_Deg) - InStr(1, Degree_Deg, "'") - 2)) _ / 3600 Convert_Decimal = degrees + minutes + seconds End Function

Now they ask me to put

in a A1. I have to do this for about a 1000 numbers so it's impossible to typ de formula in every single cell. SO that is why i tried to typ= Convert_Decimal("10° 27' 36""")

into cell A2. That didn't work. Does any of you guys have any idea how i can solve this problem?= Convert_Decimal("A1""")

Thanks you so much in advance!

Tom