Skifte Activesheet i en løkke

Jeg har en løkke som ser på antallet af sheets i mit Excell ark. Dette antal kan variere fra 1 til 25. Derfor har jeg brug for at kører samme makro i hver sheet. Men min makro kører kun i sheet1 og jeg er lidt lost til hvordan jeg får prget på sheet 2 shellet 3 osv.

Min løkke tæller de sheets der er men det er selve funktionen med at skifte worksheet der fejler

Dim WS_Count As Integer
  Dim I As Integer
  ' Set WS_Count equal to the number of worksheets in the active
  ' workbook.
  WS_Count = ActiveWorkbook.Worksheets.Count

  ' Begin the loop.
  For I = 1 To WS_Count
        Set WS = ActiveSheet()

Her kommer så en masse kode der virker fint.       

      Next I
    End Sub

Jeg har prøvet med at sætte en counter i ActiveSheet(counter) og at sætte WS = WS +1 men intet virker. Er der en løsning så jeg får alle arkene konverteret hvor de skal?