Perform text manipulation on each cell currently selected

[z3115]

I often times encounter raw data where the date in the format YYYYQ (year then quarter, ex: "20193" for the third quarter of 2019). For formatting/presentation purposes I have to add the letter "Q" before the quarter to make it clearer (ex 20193 becomes 2019Q3). If there a macro that would do this automatically for the current selected range? For example, if I have range A1:A10 selected (each containing a date in YYYYQ format), is there a way to have it add the Q in the correct position for all 10 cells in the range? Thank you!

 

[Fluff]

How about

Sub z3115()
   With Selection
      .Value = Evaluate("if({1},replace(" & .Address & ",5,0,""Q""))")
   End With
End Sub

 

[z3115]

This worked perfectly, thank you! for my own edification, can you explain how the portion below is working? Also how does the "with selection" approach differ from a "for each cell in selection" approach?

Sorry for the follow up questions, I just want to understand it better so I can become more independent.

Evaluate("if({1},replace(" & .Address & ",5,0,""Q""))")

How about

Sub z3115()
   With Selection
      .Value = Evaluate("if({1},replace(" & .Address & ",5,0,""Q""))")
   End With
End Sub

 

[Fluff]

Using Evaluate saves the need for looping through the cells. It can either be a dynamic range, or using Selection.

Evaluate is calculating the worksheet formula
=REPLACE(M2,5,0,"Q")
and putting the result into the cell, rather than a neighbouring cell.