Hi and thanks for looking at my thread.

I have the following VBA and it changes the dates on different sheets when the date is changed on the "DATE" sheet

the VBA does the job just wondering if it can be simplified.
heres the code 

Sub Macro4()
'
' Macro4 Macro
'

'
Call UnprotectSh
Application.EnableEvents = False
Sheets("Sheet2").Select
    Range("C1:F1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[2]C[1]"
    Range("H1:K1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[3]C[-4]"
    Range("M1:P1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[4]C[-9]"
    Range("R1:U1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[5]C[-14]"
    Range("W1:Z1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[6]C[-19]"
    Range("AB1:AE1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[7]C[-24]"
    Range("AG1:AJ1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[8]C[-29]"
    Range("A2").Select
Sheets("Sheet3").Select
    Range("C1:F1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[9]C[1]"
    Range("H1:K1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[10]C[-4]"
    Range("M1:P1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[11]C[-9]"
    Range("R1:U1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[12]C[-14]"
    Range("W1:Z1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[13]C[-19]"
    Range("AB1:AE1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[14]C[-24]"
    Range("AG1:AJ1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[15]C[-29]"
    Range("A2").Select
Sheets("Sheet4").Select
    Range("C1:F1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[16]C[1]"
    Range("H1:K1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[17]C[-4]"
    Range("M1:P1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[18]C[-9]"
    Range("R1:U1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[19]C[-14]"
    Range("W1:Z1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[20]C[-19]"
    Range("AB1:AE1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[21]C[-24]"
    Range("AG1:AJ1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[22]C[-29]"
    Range("A2").Select
Sheets("Sheet5").Select
    Range("C1:F1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[23]C[1]"
    Range("H1:K1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[24]C[-4]"
    Range("M1:P1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[25]C[-9]"
    Range("R1:U1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[26]C[-14]"
    Range("W1:Z1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[27]C[-19]"
    Range("AB1:AE1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[28]C[-24]"
    Range("AG1:AJ1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[29]C[-29]"
    Range("A2").Select
Sheets("Sheet6").Select
    Range("C1:F1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[30]C[1]"
    Range("H1:K1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[31]C[-4]"
    Range("M1:P1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[32]C[-9]"
    Range("R1:U1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[33]C[-14]"
    Range("W1:Z1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[34]C[-19]"
    Range("AB1:AE1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[35]C[-24]"
    Range("AG1:AJ1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[36]C[-29]"
    Range("A2").Select
Sheets("Sheet7").Select
    Range("C1:F1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[37]C[1]"
    Range("H1:K1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[38]C[-4]"
    Range("M1:P1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[39]C[-9]"
    Range("R1:U1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[40]C[-14]"
    Range("W1:Z1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[41]C[-19]"
    Range("AB1:AE1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[42]C[-24]"
    Range("AG1:AJ1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[43]C[-29]"
    Range("A2").Select
Sheets("Sheet8").Select
    Range("C1:F1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[44]C[1]"
    Range("H1:K1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[45]C[-4]"
    Range("M1:P1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[46]C[-9]"
    Range("R1:U1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[47]C[-14]"
    Range("W1:Z1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[48]C[-19]"
    Range("AB1:AE1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[49]C[-24]"
    Range("AG1:AJ1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[50]C[-29]"
    Range("A2").Select
Sheets("Sheet9").Select
    Range("C1:F1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[51]C[1]"
    Range("H1:K1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[52]C[-4]"
    Range("M1:P1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[53]C[-9]"
    Range("R1:U1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[54]C[-14]"
    Range("W1:Z1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[55]C[-19]"
    Range("AB1:AE1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[56]C[-24]"
    Range("AG1:AJ1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[57]C[-29]"
    Range("A2").Select
Sheets("Sheet10").Select
    Range("C1:F1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[58]C[1]"
    Range("H1:K1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[59]C[-4]"
    Range("M1:P1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[60]C[-9]"
    Range("R1:U1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[61]C[-14]"
    Range("W1:Z1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[62]C[-19]"
    Range("AB1:AE1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[63]C[-24]"
    Range("AG1:AJ1").Select
    ActiveCell.FormulaR1C1 = "=DATE!R[64]C[-29]"
    Range("A2").Select
Application.EnableEvents = True
Sheets("DATE").Range("B2").FormulaR1C1 = Format(Now(), "mm/dd/yyyy")

            
Sheet2.Select
Range("AL1").Select
MsgBox "Hi, Your Weekly Timesheets have been added simply amend your start date"
Sheet2.Select
Range("AL1").Select
ActiveCell.FormulaR1C1 = ""
Range("AL1").Select
 
 Call UnHideSheets
 Call ProtectSh
 Call PickDate
End Sub
many thanks

Toonies