Cell Addresses of Current Region

[animas]

Say my range is C3:F20. At certain point of time selected cell is like D7. So using CurrentRegion I can select C3:F20.

How do I easily set different parts of current region inside following variables:

TopLeft_Address
TopLeft_RowNum
TopLeft_ColumnNum

TopRight_Address
TopRight_RowNum
TopRight_ColumnNum


BottomLeft_Address
BottomLeft_RowNum
BottomLeft_ColumnNum

BottomRight_Address
BottomRight_RowNum
BottomRight_ColumnNum

 

[shg]

    With ActiveCell.CurrentRegion
        TopLeft_Address = .Cells(1).Address
        TopLeft_RowNum = .Row
        TopLeft_ColumnNum = .Column
 
        With Cells(.Row, .Columnns.Count + .Column - 1)
            TopRight_Address = .Address
            TopRight_RowNum = .Row
            TopRight_ColumnNum = .Column
        End With
 
        With Cells(.Row + .Rows.Count - 1, .Column)
            BottomLeft_Address = .Address
            BottomLeft_RowNum = .Row
            BottomLeft_ColumnNum = .Column
        End With
    End With

 

[animas]

With Cells(.Row, .Columnns.Count + .Column - 1)

Above line is giving following error:
"runtime error 438
Object Doesn't support this property or method."

 

[shg]

Oops. Too many n's in Column.

 

[animas]

Thanks again. That solved the issue.