Sub ffixer()
Dim v As String
Set r = Range("A1")
v = r.Formula
n = Len(v) - 3
v2 = Replace(Left(v, n), "(", "")
r.Offset(1, 0).Formula = v2
End Sub
--
Gary''s Student - gsnu200721