Loop gennem worksheets

Godt jeg selv tænker før jeg spørg :)

Sub WorksheetLoop()

  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 = WS_Count To 3 Step -1
 

        Sheets(I).Activate
        Range("B3").Copy                          'Client name
        Sheets("Overview").Activate
        Range("B8").Select
        Selection.Insert Shift:=xlDown

Next I

End sub

Lukket og slukket