Slette tomme kolonner

Public Sub SletTommeKolonner()
    Dim blnNotEmpty As Boolean
    Dim i As Integer
   
    Do Until blnNotEmpty = True
        For i = 2 To 200
            If ActiveSheet.Cells(i, 3) <> "" Then
                blnNotEmpty = True
                Exit For
            End If
        Next i
        If Not blnNotEmpty Then
            ActiveSheet.Range("C:C").EntireColumn.Delete
        End If
    Loop
End Sub

Fint tak det funker som det skal.

Så derfor vil jeg gerne uddele point.

Det kan du godt få lov til ;-)