CurrentRegion Property Example

The functionin this example returns True if the entire current region for cell A1 on the active worksheet is visible (if the current region extends outside the visible range, the function returns False).

Function IsCurrentRegionVisible()
    Set cr = Spreadsheet1.ActiveSheet.Cells(1, 1).CurrentRegion
    Set vr = Spreadsheet1.ActivePane.VisibleRange
    Set ir = Spreadsheet1.Intersect(cr, vr)
    IsCurrentRegionVisible = (ir.Address = cr.Address)
End Function