Count visible columns

[mikeymay]

I am looking for a bit of code that will count the number of visible columns either

I have the following which is missing the code to establish if the range is visible or

Do Until rngVisibleColumnCount.Column = Range("HRISData_RoleError").Column
'Code to establish if visible
intVisibleColumnCount = intVisibleColumnCount + 1
Set rngVisibleColumnCount = rngVisibleColumnCount.Offset(0, 1)
Loop

Thanks

 

[JLeno]

Do Until rngVisibleColumnCount.Column = Range("HRISData_RoleError").Column
    If rngVisibleColumnCount.Width > 0 Then
        intVisibleColumnCount = intVisibleColumnCount + 1
    End If
    Set rngVisibleColumnCount = rngVisibleColumnCount.Offset(0, 1)
Loop

Does that work for you?

 

[mikeymay]

Works perfectly!!

So simple.....the coffee clearly hasn't kicked in yet!!