Need help with loop, concatenate and trim in Excel, VBA

[cp713a]

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, this works thank you very much.