Run this: 
Sub ReplaceStuff()
FromArray = Array("(a)", "(b)", "(c)", "(d)", "(e)", "(f)", "(g)")
ToArray = Array("(1)", "(2)", "(3)", "(4)", "(5)", "(6)", "(7)")
For i = LBound(FromArray) To UBound(FromArray)
  Cells.Replace What:=FromArray(i), Replacement:=ToArray(i), LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Next i
End Sub
before running your original macro and you're nearly there.