Sub Macro1()
Dim i As Integer
For i = 1 To ThisWorkbook.Worksheets.Count
ThisWorkbook.Worksheets(i).Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Range("O4").Value & Range("j13").Value & ".xls", FileFormat:=xlExcel8, CreateBackup:=False
Range("c43").Select
Selection.FormulaR1C1 = "=R[71]C[1]&""\""&R[72]C[1]&""\""&""wk""&TEXT(WEEKNUM(R[-34]C[13],16),""00"")&""\""&R[74]C[1]&""\""&R[-12]C[13]&""\""&R[-14]C[7]&""\""&R120C4"
ActiveSheet.Pictures.Insert (Selection.Value)
Range("k43").Select
Selection.FormulaR1C1 = "=R[71]C[-7]&""\""&R[72]C[-7]&""\""&""wk""&TEXT(WEEKNUM(R[-34]C[5],16),""00"")&""\""&R[74]C[-7]&""\""&R[-12]C[5]&""\""&R[-14]C[7]&""\""&R121C4"
ActiveSheet.Pictures.Insert (Selection.Value)
Application.DisplayAlerts = False
ActiveWorkbook.Close True

Next i
End Sub