Are you sure it installs at 'Chart' sheets? Also what do you mean by that?

If you have your sheetnames in the range A2:A33, your code should work fine.

For chart sheets, however, it may not work unless you have a cell "A1" on
the chart sheet...

See
http://www.lockergnome.com/windows/2...el-worksheets/
for similar code...


" wrote:

1. Please refer to the following code :-

Set WorkSheetShingle = ActiveSheet.Range("WrkShtIndex").Offset(1,
0).Resize(32, 1)

For Each Cel In WorkSheetShingle.Cells

ShtName = Cel.Value 'Use the Tag-Name of the Sheet ......
ShtDestinAddress = Range("A1").Address 'That is the Cell-
Address at the Destination ......

With ActiveSheet
.Hyperlinks.Add Anchor:=Cel, _
Address:="", _
SubAddress:="#" & Chr(39) & ShtName & Chr(39) & "!" &
ShtDestinAddress, _
ScreenTip:="Move to a Sheet in ActiveWorkBook.", _
TextToDisplay:=Cel.Value
End With

Next Cel

2. WorkSheetShingle is a range of 32 values showing Sheet-Names
(WorkSheets as well as Chart-Sheets).

3. The code works for the WorkSheets ; unfortunately, it stalls at
Chart-Sheets.

4. The culprit is,
SubAddress:="#" & Chr(39) & ShtName & Chr(39) & "!" &
ShtDestinAddress, _

5. Please share your experience to resolve the above.

6. Regards.