Delete the new sheet after printout

hello,
i m using below code to create new sheet and paste data here and print out the copies.

Sub Copy_Entry_Data()
    Sheets("ENTRY").Select
    Range("A9:Y300").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Worksheets.Add(After:=Worksheets(Worksheets.count)).Name = "Print"
    Sheets("Print").Select
    ActiveSheet.Paste
    Adjust_Entry_Columns
    Hide_Column_With_CountA_ENTRY
    Range("D1:D300").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Range("C1").Select
     ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

i want after print the data delete the new created sheet automatically

thanx

Hi, HaroonSid,

maybe add

ActiveSheet.Delete

or make the information not appear by using

Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True

Ciao,
Holger

Very Thanx,
HaHoBe
works fine, +1 will rep