I figured it out myself, finally :-)

For h = ncn To 2 Step -1
If UCase(Cells(1, h).Value) = "X" Then
Cells(1, h).EntireColumn.Delete shift:=xlRight
End If
Next h

Does the trick.

Jan