前スレでも教えていただいたコードを変えて

F1の値が５繰り上がるごとに、シート"納品書を"印刷するようにしたいのですが
Ｆ１が繰り上がらないです。
Ｆ１を繰り上げるにはどうしたらよいでしょうか


Sheets("名簿").Select
For i = Range("F1") To Range("F2") - 1 Step 5
Range("F1") = i
Sheets("納品書").Select
ActiveSheet.PrintOut
Next
End Sub