Sub a()
Dim Rg As Range
Dim StringRg As String
StringRg = "TaxData!$B$4:$G$18"
Set Rg = Range(StringRg)
Debug.Print "Start row: "; Rg.Row
Debug.Print "Start col: "; Rg.Column
Debug.Print "End row: "; Rg.Row + Rg.Rows.Count - 1
Debug.Print "End col: "; Rg.Column + Rg.Columns.Count - 1
End Sub


--
Jim Rech
Excel MVP