CurrentRegion Property

Returns a Range object that represents the current region. The current region is a range bounded by any combination of blank rows and blank columns. Read-only.

expression.CurrentRegion

*expression   * Required. An expression that returns a Range object.

Example

The function in 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()
    Dim rngCurrent
    Dim rngVisible
    Dim rngIntersect

    ' Set the varible to the current region of cell A1.
    Set rngCurrent = Spreadsheet1.ActiveSheet.Cells(1, 1).CurrentRegion

    ' Set a variable to the currently visible range.
    Set rngVisible = Spreadsheet1.ActiveWindow.VisibleRange
 
    ' Set a variable to the overlapping portion of the current region
    ' and the visible range.
    Set rngIntersect = Spreadsheet1.RectIntersect(rngCurrent, rngVisible)

    ' If the overlapping region is the same as the current region, then
    ' return true.
    IsCurrentRegionVisible = (rngIntersect.Address = rngCurrent.Address)
End Function

Applies to | Range Object

See Also | UsedRange Property