How to create a Web Hyperlink based on Cell Contents?

Hi chatguy

You can try this code:

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

In sheet 2, enter the following:
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.

Closed for cross posting on two other forums. Please read forum rules below and PM me if you agree to then

VBA Noob