Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If ActiveCell.Address = Range("C20").Address Then
MsgBox "you clicked the hyperlink in cell C20"
ElseIf ActiveCell.Address = Range("B16").Address Then
MsgBox "you clicked the hyperlink in cell B16 the chart will now be selected"
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Select
End If
End Sub