Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Returns the type of a range in an area

Private Function AreaType(RangeArea As Range) As String     Select Case True         Case RangeArea.Count = 1             AreaType = "Cell"         Case RangeArea.Count = Cells.Count             AreaType = "Worksheet"         Case RangeArea.Rows.Count = Cells.Rows.Count             AreaType = "Column"         Case RangeArea.Columns.Count = Cells.Columns.Count             AreaType = "Row"         Case Else             AreaType = "Block"     End Select End Function