Excel Forum

Code: Select all

Sub Edit_Fomula()
    Sheets("Main").Select
        ActiveSheet.Unprotect Password:="1"
            Range("B2").Select
                ActiveCell.FormulaR1C1 = "=Publish!J42"
            Range("C2").Select
                ActiveCell.FormulaR1C1 = "=Publish!J43"
        ActiveWorkbook.Save
        Application.ScreenUpdating = True
        ActiveSheet.Protect Password:="1"
        MsgBox "Update Complete"
End Sub

Code: Select all

Sub Edit_Fomula()

    Sheets("Main").Select
        ActiveSheet.Unprotect Password:="1"
            Range("B2").Select
               ActiveCell.Formula = "='Publish'!" & "J42"
            Range("C2").Select
                ActiveCell.Formula = "='Publish'!" & "J43"
        ActiveWorkbook.Save
        Application.ScreenUpdating = True
        ActiveSheet.Protect Password:="1"
        MsgBox "Update Complete"
End Sub