تعديل في كود vb

[لزهر مدلل]

السلام عليكم

لدي كود vb موجود في كل ورقة عمل و اريد ان اكتبه مرة واحدة في workbook و يعمل مع كل ورقات العمل حتى في حال اضافة ورقة عمل جديدة

الكود

Private Sub Worksheet_Change(ByVal Target As Range)
    
    If Target.Address = "$F$1" Then
    Range("C6").Select
    ActiveCell.FormulaR1C1 = "NAFTAL EL OUED"
    Range("E7").Select
    ActiveCell.FormulaR1C1 = "EL-OUED "
    Range("F7:G7").Select
    ActiveCell.FormulaR1C1 = "=TODAY()"
    Range("F2").Select
    End If
    End Sub