Select the cells you want to process first, then try running:Sub blah() For Each cll In Selection.Cells x = Split(cll.Value, "'") x(0) = x(0) & " Equipment" cll.Value = Application.Trim(Join(x, "'")) Next cll End Sub
Select the cells you want to process first, then try running:Sub blah() For Each cll In Selection.Cells x = Split(cll.Value, "'") x(0) = x(0) & " Equipment" cll.Value = Application.Trim(Join(x, "'")) Next cll End Sub
p45cal
Everyone: If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.
Reply With Quote
