Slet Kolonner hvis første celle indholder special værdi.

Jeg har et sammentællings regneark med 3 faner hvor der skal slettes et forskelligt kolonner i hvert ark.
Jeg har via en macro markeret dem der skal slettes med "SLETKOLONNE" i Række 1.

Jeg har brugt følgende:

[code]Sub DeleteIndCol()
    Dim i As Long
   
    Sheets("Bilag-ind").Select
   
    For i = 10 To 2 Step -1
        Select Case UCase(Cells(1, i).Value)
        Case "SLETKOLONNE"
            Cells(1, i).EntireColumn.Delete
        Case Else
            'gå videre
        End Select
    Next i
End Sub[/code]

Det virker ok, min udfordring er at jeg skal trykke flere gange på makroen for at den sletter alle kolonner. Jeg tænker det er fordi rækkefølgen ændres når den første kolonne slettes?