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

[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.

 

[rlm703]

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

 

[rlm703]

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

 

[michaelrlanier]

Thanks. I'll try it out ASAP. It looks hopeful.

Michael