Multi Time sheet production

[lee2boy]

Chaps can anyone of you VBA kings please help me out and take a look at the spreadsheet , it has a small macro and button that is not working , once the button in the tsheet is pushed it is then meant to print a time sheet with a different name from the data sheet, but what is happening instead is that the dat sheet is bing printed and not the time , 34 for times (34 pages in the data sheet)
If anyone could help I would be grateful
Regards,
Lee

[Bob Phillips]

[vba]

Sub Macro1()
With Sheets("Data")

.Range("Data").Copy .Range("A501")

Do

.Range("A501..E501").Copy .Range("A499")
Worksheets("TSHEET").PrintOut Copies:=1
.Range("A501").EntireRow.Delete
Loop Until .Range("A501") = ("")
End With
End Sub
[/vba]

[lee2boy]

Thanks for that pal
what was up with original as it did work but stooped for some reason
Cheers,

Lee

[mdmackillop]

This line is printing out the active sheet
[VBA]
ActiveWindow.SelectedSheets.PrintOut Copies:=1
[/VBA]
XLD's code is specific as to the sheet to print.
[VBA]
Worksheets("TSHEET").PrintOut Copies:=1

[/VBA]