Hi Dave:

This will work, but only if A1 contains a fomula (starts with =):

Sub Macro2()
Dim s As String
s = Cells(1, 1).Formula
s = "=" & Cells(1, 2) & "(" & Right(s, Len(s) - 1) & ")"
Cells(1, 1).Formula = s
End Sub

--
Gary''s Student


"damorrison" wrote:

that's pretty cool,
is there a way to do that so you can still keep the formulas in the
cells?
Dave