Clear non-adjacent columns

[juriemagic]

Hi there,

please, kindly assist me with a teeny problem. I need a code which will clear the contents of columns B to H, from cells 4, then skip one column and clear the next 7 columns..and carry on like this right to columns DHB to DHH. Thank you very much..

[HaHoBe]

hHi, juriemagic,

maybe this:

Sub EF1050610()
Dim lngCtr As Long
For lngCtr = Range("B1").Column To Range("DBH1").Column Step 8
  Range(Cells(4, lngCtr), Cells(Rows.Count, lngCtr + 6).End(xlUp)).ClearContents
Next lngCtr
End Sub

Ciao,
Holger

[juriemagic]

Absolutely brilliant!..Once again I thank you Holger..

[HaHoBe]

Hi, juriemagic,

due to another thread here maybe alter the code to read

Sub EF1050610_2()
Dim lngCtr As Long
For lngCtr = Range("B1").Column To Range("DBH1").Column Step 8
  Range(Cells(4, lngCtr), Cells(Rows.Count, lngCtr + 6)).ClearContents
Next lngCtr
End Sub

just in case any of the last columns doesn´t hold additional values from row 4 on.

Ciao,
Holger

[juriemagic]

Thanx Holger,

Will keep this one in mind... have a good day..