Checkbox Hyperlink

[dcliffo]

Is there any way to jump to a web page when a checkbox is checked? So something like this although this doesn't work.

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("A1").FormulaR1C1 = "=HYPERLINK(http://businesscontrols.honeywell.com/policies)"
Else
Range("A1").FormulaR1C1 = "(http://businesscontrols.honeywell.com/policies)"

Range("A1").ClearFormats
End If

End Sub

 

[Norie]

How about FollowHyperlink?

ThisWorkbook.FollowHyperlink "http://businesscontrols.honeywell.com/policies"

 

[dcliffo]

Thanks so much...works perfectly!