Please help me!

[ryan0521]

Hello everyone,

Can someone fix my Macro, I have a workbook with only 1 sheet, this macro button will update their values if someone copy and paste another worksheet in my workbook.

However, if the sheets were not yet completed and already click the macro button, it keeps updating values again and an error appears that the macro wouldn't continue. Please fix my codes below.

Sub Recalculate_Click()


ActiveSheet.Unprotect Password:="FPRC"
Dim sht As Worksheet
Dim fnd As Variant
Dim rplc As Variant


fnd = "="
rplc = "="


For Each sht In ActiveWorkbook.Worksheets
  sht.Cells.Replace what:=fnd, Replacement:=rplc, _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
    SearchFormat:=False, ReplaceFormat:=False
    
Next sht


ActiveSheet.Protect Password:="FPRC"


End Sub

 

[My Aswer Is This]

Try this:
Modify the find and replace values. They cannot be the same.

Sub Recalculate_Click()
Dim sht As Worksheet
Dim fnd As Variant
Dim rplc As Variant
ActiveSheet.Unprotect Password:="FPRC"
Dim c As Range
fnd = "[COLOR=#ff0000]Me[/COLOR]"  'Modify find to your needs
rplc = "[COLOR=#ff0000]You[/COLOR]" 'Modify replace to your needs
    For Each sht In ActiveWorkbook.Worksheets
        
        For Each c In sht.UsedRange
            c.Replace what:=fnd, Replacement:=rplc, _
            LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
            SearchFormat:=False, ReplaceFormat:=False
        Next
    
    Next
    ActiveSheet.Protect Password:="FPRC"

End Sub