Makro, der søger efter bogmærker og skjulte bogmærker

Jeg har lavet en makro, der skal afsøge et worddokument for bogmærker og gøre noget og samtidig skal den søge efter bogmærker der skjulte og så skal komandoen springes over.

Jeg har først fået den lavet uden komandoen for de skjulte og her kørte den bare, så har jeg tilføjet komandoen for de skjulte også køre den bare ikke - den siger følgende: " objekt varaible or with block variable not set"
Jeg vedlægger nederst makroen - jeg har plukket et eks. ud, så jer sparer jer for at se de samme komandoer på forskellige bogmærker.

Jeg har prøvet at sende filen til en ven, men han kan ikke afpille makroen, den siger makro disabled - ved nogen hvorfor?

Med venlig hilsen

HHB

Sub KORRektiontabel2()
'
' KORRektiontabel Makro
' Makro indspillet 13.01.2005 af hhb
  Dim rng As Range



  If Application.ActiveDocument.Bookmarks.Exists("Sundhedskoncept") Then
  rng = Application.ActiveDocument.Bookmarks("Sundhedskoncept").Range
  If rng.Font.Hidden = False Then
  Selection.GoTo What:=wdGoToBookmark, Name:="Sundhedskoncept"
  Selection.MoveDown Unit:=wdLine, Count:=1
  Selection.MoveLeft Unit:=wdCharacter, Count:=1
  Selection.MoveLeft Unit:=wdCharacter, Count:=2, Extend:=wdExtend
  Selection.Columns.Delete
  End If
  End If
end sub