Print Mon-Fri using button

[oxicottin]

Hello, I have a sheet named "Spot Check" with a date in cell C7. Every week I have to print 5 of these sheets out (Mon-Fri) and change the date on each one. Is there some way I can add a button that would only show on the sheet and not on the printout that would print the dates for the week starting with the date in C7 and as it prints it changes the date in the C7 cell? Also, can I have it so it skips sat and sun and shows following weeks Mon after it prints the 5 days.

Thanks,
Chad

 

[oxicottin]

Ok, I got some of it but cant figure out how to add two days to the date after it prints the five days. I took some VBA I had in another Sheet and put it for this one. I have a number 4 in J7 so it prints five days.

Sub FiveDays()

Dim lngMyCount As Long

With Sheets("Spot Check")

    For lngMyCount = 1 To .Range("J4")

        .PrintOut
        .Range("C7") = .Range("C7") + 1

    Next lngMyCount
    
End With

End Sub

 

[oxicottin]

I figured it out....

Changed the C7 number to a 5 and date to monday. and run this code......

Sub FiveDays()

Dim lngMyCount As Long

With Sheets("Spot Check")

    For lngMyCount = 1 To .Range("J7")

        .PrintOut
        .Range("C7") = .Range("C7") + 1

    Next lngMyCount
    
End With
'Increment
ActiveSheet.Range("C7").Value = ActiveSheet.Range("C7").Value + 2
ActiveSheet.Calculate
End Sub