Need VBA to arrange data Cell adress data please!!

[estatefinds]

Hello, I have data in a column AO and need use of a VBA program to arrange the cell adress in stead of looking like Q369 haVe it look like 369-Q.
Any help in this problem is greatly appreciated!!!
Thank you very much in advance!

A file is attached, I need it to be where the data is NOT copiEd to another column, but have the change occur in the column AO.

[Paul_Hossler]

Not elegant, but simple

Option Explicit

Sub SplitAddress()
    Dim c As Range
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    On Error GoTo NiceExit
    For Each c In ActiveSheet.Range("AO:AO").SpecialCells(xlCellTypeConstants).Cells
        For i = 1 To Len(c.Value)
            If Mid(c.Value, i, 1) Like "[0-9]" Then
                Exit For
            End If
        Next I
        
        c.Value = Right(c.Value, Len(c.Value) - i + 1) & "-" & Left(c.Value, i - 1)
    Next
    
NiceExit:
    Application.ScreenUpdating = True
End Sub

[estatefinds]

Wow it worked Great thank you!!!!
Very much appreciated!!!
Sincerely,
Dennis