Estava compilando o macro e deu um erro falando " Erro de execução BASIC. O argumento não é opcional." Nao to entendendo o porque.
Function DMS2Real(Degree_DMS As String) As Double
Dim degrees As Double
Dim minutes As Double
Dim seconds As Double
Dim sign As Integer
degrees = Val(Left(Degree_DMS, InStr(1, Degree_DMS, " ° ") - 1)) 'o erro está aparecendo aqui"
If degrees < 0 Then
degrees = degrees * -1
sign = -1
Else
sign = 1
End If
minutes = Val(Mid(Degree_DMS, InStr(1, Degree_DMS, "°") + 2, InStr(1, Degree_DMS, "'") - InStr(1, Degree_DMS, "S") - 2)) / 60
seconds = Val(Mid(Degree_DMS, InStr(1, Degree_DMS, "'") + 2, Len(Degree_DMS) - InStr(1, Degree_DMS, "'") - 2)) / 3600
DMS2Real = sign * (degrees + minutes + seconds)
End Function