Get row/column number from text cell reference value.

Hello.

I have a cell (in A1) which contains a dynamic text cell reference value (e.g. $B$2) based on the currently selected cell (done using below VBA).

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Range("A1").Value = ActiveCell.Address
End Sub

I want to create two additional cells (in cells B1 and C1) that will return the respective column (B1) and row (C1) numbers of whatever text cell value is in A1:

For example if the value in A1 is:

$B$2 - then B1 = 2, C1 = 2
$E$10 - then B1 = 5, C1 = 10
$Z$3 - then B1 = 26, C1 = 3

Hope this makes sense.

Thanks for any help.