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.

On Friday, August 17, 2012 11:41:30 AM UTC-7, Michael Lanier wrote:
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

On Monday, August 20, 2012 9:17:54 PM UTC-7, wrote:
On Friday, August 17, 2012 11:41:30 AM UTC-7, Michael Lanier wrote:

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


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

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

Michael