Sub GotoMaps()
Dim Lng As Double
Dim Lat As Double
Dim Ele As Double
Dim Loc As String
Lng = Range("B2").Value
Lat = Range("C2").Value
Ele = Range("D2").Value
Loc = Range("A2").Value
ActiveWorkbook.FollowHyperlink _
Address:="https://www.google.co.uk/maps/place/" & Loc & "/@" & Lng & "," & Lat & "," & Ele & "z", _
NewWindow:=True
End Sub