Hyperlinks to many charts
 

Hi,
I have created an index page to which I'd like to create hyperlinks to charts.
I found the code that John Peltier wrote which works fine - for one link to
one chart.

My question is, how do I create many links?

The code I have is as below;
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A5")) Is Nothing Then
On Error Resume Next
Charts(Target.Value).Activate
If Err.Number < 0 Then
MsgBox "No such chart exists.", vbCritical, _
"Chart Not Found"
End If
On Error GoTo 0
End If
End Sub