ignores hidden columns?

  • Thread starter Thread starter WashoeJeff
  • Start date Start date
W

WashoeJeff

Hi

Below is code that starts at the end column of the sheet on row 7 and looks
for the last text column, however it totally ignores hidden columns is there
a way to get it to use the right value and look at hidden columns?

Thank you
Jeff

Dim col_address As String

col_address = ActiveSheet.Range("IV7").End(xlToLeft).Address
MsgBox col_address
 
If that doesn't work this will, though it will probably not be as fast.

For y = 1 To 256
For x = 1 To 7
If Worksheets(1).Cells(x, y).Value <> "" Then
var1 = Worksheets(1).Cells(x, y).Value
End If
Next x
Next y

-Piku
 
Back
Top