Microsoft Office Forums - View Single Post - [Solved] RIGHT Function With Concatenate (?) VBA-Need Help with Macro

rsrasc · 08-22-2018, 09:50 AM

Quote:

Originally Posted by Kenneth Hobson

=right(b4,5) & " " & c4

Hi Kenneth,

Thank you for your response. I already tested this formula but I'm looking for a macro that when I run it it's going to apply it to 16 sheets in the file. I recorded a macro and this is what I got.

Code:

 
Sub Macro1()
'
' Macro1 Macro
'
'
    Range("A4").Select
    ActiveCell.FormulaR1C1 = "=RIGHT(RC[1],5)&"" ""&RC[2]"
    Range("A5").Select
End Sub

But I don't like it.

Will see if someone can come out with a better option.

Thanks anyway!