An easier way....
remove the ":" and first character from the address string then split it into its parts.
This will show in the Immediate Window what you're dealing with.
Code:
Sub Parts_of_Address()
AddressStr = ActiveCell.CurrentRegion.Address
Debug.Print Mid(AddressStr, 2)
parts = Split(Mid(Replace(AddressStr, ":", ""), 2), "$")
For i = LBound(parts) To UBound(parts)
Debug.Print i, parts(i)
Next i
End Sub