Hvordan springer man "ark" over i thisworkbook

Fik hjælp til (automatisk opdatering af celler):
http://www.eksperten.dk/spm/672640

Koden er:



Mit problem er at ark 1 og 56 IKKE skal ændres hvis man ændre i dem.. men hvordan kan man lave det??

har prøvet med en

sub test()
If activesheet.Name= "ark1" Then Exit SUB
If activeSheet.Name ="ark56" Then Exit SUB
Else

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  Application.EnableEvents = False
  Sh.Range("A5") = Environ("username")
  Sh.Range("A6") = Date
  Application.EnableEvents = True
End Sub


Tak for hjælpen (det er sikkert en simpel IF sætning - men kan ikke lige greje den)