Hent Dataark navn ??

Hej med jer
Jeg lavede denne sub for at have en form for oversigt over alle dataark, den virker når det er et lokalt ark, men ikke når det bli'r hentet på serveren!!!!
Det den skulle var at hente navnene på arket ligge det i mit menuark ?? hvad gør jeg galt


Dim rSH As Worksheet
Dim iX As Integer
iX = 4
For Each rSH In ActiveWorkbook.Worksheets
    Range("B" & iX).Select
    ActiveCell.Offset(iX, 0).Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        rSH.Name & "!A1", TextToDisplay:=rSH.Name
    iX = iX + 1
Next rSH