Place a button on the sheet and assign it this macro:
Sub Macro1()
If Cells(1, 1) = "This" Then
'Web hyperlink
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://www.google.com/", TextToDisplay:="Google"
ElseIf Cells(1, 1) = "That" Then
'File hyperlink
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"C:\This is it.txt", TextToDisplay:="Text"
End If
End Sub
Bookmarks