Kolommen verwijderen waarin datum is verstreken

[cissie1]

Goedenacht,

Onderstaande code wil ik gebruiken om de kolommen te verwijderen waarin op rij 6 een datum staat die al verstreken is.
Deze code werkt hiervoor in principe wel, alleen wil ik dat hij pas begint te kijken vanaf kolom D, aangezien ik in eerdere kolommen ook data heb staan die niet verwijderd mogen worden.

 Private Sub Worksheet_Activate()
  Application.ScreenUpdating = False
    icol = Cells(6, Columns.Count).End(xlToLeft).Column
    For x = icol To 1 Step -1
        If Cells(6, x).Value < Date Then Cells(6, x).EntireColumn.Delete
    Next
  Application.ScreenUpdating = True
End Sub

kan iemand mij hiermee helpen?

p.s. deze code heb ik op dit forum gevonden en zoveel mogelijk proberen aan te passen dat hij klopt met wat ik wil.

Vriendelijke groet,
Cissie1

 

[HSV]

Probeer het zo eens.

If [COLOR="#FF0000"]Clng([/COLOR]Cells(6, x)[COLOR="#FF0000"])[/COLOR] < [COLOR="#FF0000"]Clng([/COLOR]Date[COLOR="#FF0000"])[/COLOR][COLOR="#FF0000"][/COLOR] Then Cells(6, x).EntireColumn.Delete

 

[Warme bakkertje]

For x = icol To [COLOR="#FF0000"]4[/COLOR] Step -1

 

[cissie1]

For x = icol To [COLOR="#FF0000"]4[/COLOR] Step -1

Het werkt!
Bedankt!!