Thread: looping thru all columns in a worksheet

Hello, what i need to do is loop (or other method) thru all the columns in a worksheet. There are date fields in the same rows in each column. I have to
retrieve information if a date exists. Any help would be appreciated.

Thanks, kawi125

Hi,

To be adjusted to your need

Sub Check()
Dim i As Integer
Dim LastCol As Integer
LastCol = Range("IV1").End(xlToLeft).Offset(0, 1).Column
For i = 1 To LastCol
Cells(1, i).Select

add your code

Next i
End Sub

HTH
Carim