søg flere faneblade igennem

Jeg har et stykke kode som jeg fungerer efter hensigten med et excel-dokument med ét faneblad, men jeg ønsker at koden skal pakkes ind i en løkke hvor jeg tager fra faneblad 3 og til det sidste, og gør det samme som koden nedenfor fortæller... Er der nogle der kan ryste et guldkorn af sig ? :)

Takker


Sub InsertSheet()

Dim NewSheet As Integer
Dim Pricelist As Integer
Dim SheetName As String
Dim orgSheet As String

orgSheet = ThisWorkbook.Name

DeleteAll

NewSheet = 2

    Do While Sheets("Settings").Cells(NewSheet, 1) <> ""
    Pricelist = Sheets.Count
    Sheets("Pricelist").Copy After:=Sheets(Pricelist)
   
    SheetName = Sheets("Settings").Cells(NewSheet, 1).Value
    Sheets(Pricelist + 1).Name = SheetName
   
    Sheets(Pricelist + 1).Range("A1") = "=Settings!B" & NewSheet  'NyFormel
    NewSheet = NewSheet + 1
   
    ProcessSheet

    Loop
End Sub