excel - ActiveCell.Formula Error 1004 - Very Simple

Question

I am getting a 1004 Error when I run the below code. Sometimes it works but many times it breaks on the ActiveCell.Formula Line. I can't understand why it does and does not work sometimes.

I am looking to input "$" into the existing formulas for a bunch of cells.

Code:

Dim Orig_Formula As String

Orig_Formula = ActiveCell.Formula

Orig_Formula = Mid(Orig_Formula, 1, 31) & "$" & Mid(Orig_Formula, 32, 1) & "$" & Mid(Orig_Formula, 33)

ActiveCell.Formula = Orig_Formula

ActiveCell.offset(1, 0).Activate

Many Thanks

Answer 1

等待大神答复