Hi Howard,

Am Tue, 4 Jul 2017 21:02:25 -0700 (PDT) schrieb L. Howard:

I was able to make it work with this.
Thanks for help getting me there.

sorry that I misunderstood your problem.

Try:

Sub ClearCols()
Dim LRow As Long
Dim i As Integer

With Sheets("Sheet3")
LRow = .UsedRange.Rows.Count
For i = 3 To 15 Step 3
.Range(.Cells(2, i), .Cells(LRow, i)).ClearContents
Next
End With
End Sub


Regards
Claus B.
--
Windows10
Office 2016