VBA to test if column is on screen.

I’m looking for a way to determine if a column is visible on screen (i.e., not just visible but on screen). I have this working for a cell but I’d rather it be any cell in a column not just on specific cell. Here’s what works for the cell. Maybe there’s some easier way.

Function CellIsInVisibleRange(cell As Range)
CellIsInVisibleRange = Not Intersect(ActiveWindow.VisibleRange, cell) Is Nothing
End Function


If CellIsInVisibleRange(ActiveSheet.Range("M4")) Then
MsgBox "Cell is visible"
Else
MsgBox "Cell is NOT visible"
End If


Thanks,
Steve

Try changing the condition to:

Please Login or Register  to view this content.

Artik

Excellent, thank you Artik, that worked perfectly.

Much appreciated,
Steve