Hi chatguy
You can try this code:
In sheet 2, enter the following:![]()
Private Sub Worksheet_Activate() Dim stext As String stext = Worksheets("Sheet2").Range("C2") With Worksheets(2) .Hyperlinks.Add .Range("B2"), "http://www.google.com/search?q=" & stext End With End Sub
B2 = google search
C2 = Test (or any word you wish)
Save the workbook, when sheet2 is activated, the above code runs.
Hope it helps you get started.
Bookmarks