# VBA looping sheet by sheet with name sheet #

i want looping by sheetname = if left (ws.name,4) = "Week" star from sheets Week (1) to sheets(Week (6) )
in every sheet week (1) to week (6) in A1.formula = in Week (1) = 25/12/2016 then in Week (2) = Week (1).range("A1") + 7 then in Week (3).range("A1") =Week (2).range("A1")+7
until Week (6).range("A1") = Week (5).range("A1") + 7
In Every sheet week (1) to week (6) in range(F3: F16 ).formula = B3 x D3
how i can do with vba makro past makro
ttt.png

Thank you alphaFrog is great job

Sub LoopingSheet()
Dim Rng As Range
Dim Lr As Long: Lr = Sheets("Week (1)").UsedRange.Rows.Count
Dim i As Long
Sheets("Week (1)").Range("A1").Value = Date
For i = 1 To 6
If i > 1 Then Sheets("Week (" & i & ")").Range("A1").Formula = "='Week (" & i - 1 & ")'!A1 + 7"
With Sheets("Week (" & i & ")")
Set Rng = .Range("b3:b" & Lr).SpecialCells(xlCellTypeConstants, xlNumbers)
Rng.Offset(0, 4).Formula = "=b3 * d3"
End With
Next i
End Sub