Application.StatusBar Cell Address

[bsquad]

I am looking if anyone knows of a LIVE function or sub that would give the Cell Address in the numeric format(I am not sure the technical name for it). But lets say I select A1 - in the status bar it would I would see "Cell(1,1)"


I thought of it when I found something someone had wrote that gives something similar to the COUNT: MIN: MAX:...features already built in

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Range)
On Error GoTo ErrHandler:
    With Application
    .StatusBar = "Sum: " & Application.Sum(Target) & " | " _
    & "Count(Nums): " & .WorksheetFunction.Count(Target) _
    & " | Count(items): " & Application.CountA(Target) _
    & " | Average: " & Application.Average(Target)
    End With
Exit Sub
ErrHandler:
Application.StatusBar = False
End Sub

 

[bsquad]

are you saying to include it in the sub?

i.e.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.StatusBar = False
Application.StatusBar = "CELL(" & Target(1).Row & ", " & Target(1).Column & ")"
End Sub

or

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.StatusBar = "CELL(" & Target(1).Row & ", " & Target(1).Column & ")"
Application.StatusBar = False
End Sub

 

[JoeMo]

are you saying to include it in the sub?

No. When you see Ready Num Lock in the status bar, can you clear it (return the status bar to Ready) by typing in the Immediate Window: Application.StatusBar = False and hitting Enter?

 

[bsquad]

when I input that in the Immediate Window and hit Enter no changes occur. But this part is interesting that I just noticed - regardless of the workbooks (existing, new, code, no code), when I have 2 separate workbooks open it works just fine.

 

[JoeMo]

when I input that in the Immediate Window and hit Enter no changes occur. But this part is interesting that I just noticed - regardless of the workbooks (existing, new, code, no code), when I have 2 separate workbooks open it works just fine.

Possibly there's something corrupt in the existing workbook.