Open Google Map and enter a street address retrieved from a cell

  • Thread starter Thread starter Michael Lanier
  • Start date Start date
M

Michael Lanier

When I link to Google Map, I want the address posted in Sheet 5, cell
C17 to be posted in Google's address section ready to find. Is this
possible? Thanks.
 
When I link to Google Map, I want the address posted in Sheet 5, cell

C17 to be posted in Google's address section ready to find. Is this

possible? Thanks.

Try this...

Sub GMapAddress()
Dim AddressInfo As String
Dim FullURL As String

AddressInfo = Sheets("Sheet5").Range("C17").Value
FullURL = "https://maps.google.com/maps?q=" & AddressInfo

ActiveWorkbook.FollowHyperlink Address:=FullURL
NewWindow = True
End Sub
 
Try this...



Sub GMapAddress()

Dim AddressInfo As String

Dim FullURL As String



AddressInfo = Sheets("Sheet5").Range("C17").Value

FullURL = "https://maps.google.com/maps?q=" & AddressInfo



ActiveWorkbook.FollowHyperlink Address:=FullURL

NewWindow = True

End Sub


Add this below the FollowHyperlink code if you want to clear the contents of the cell after.

Sheets("Sheet5").Range("C17").Select
Selection.ClearContents

or this to set the value of the cell to something else:
Sheets("Sheet5").Range("C17").Value = "=A1" 'this would duplicate data in A1 to C17
 
Back
Top