Skipping confirm

[Greg]

I have in my workbook a button which does everything i want delete the
hyperlink but when it comes to removing the sheet I want it asks meto
confirm

How do I avoid this pop-up

Here is the code I have so far

Private Sub CommandButton1_Click()
Sheets("TITLE PAGE").Select
Range("A5").Select
Selection.Delete Shift:=xlUp
ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("PRIVATE INSURANCE").Select
ActiveWindow.SelectedSheets.Delete
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("TITLE PAGE").Select
ADDCLIENT3.Hide
ADDCLIENT2.Show

End Sub

Thanks in advance

Greg

 

[Tom Ogilvy]

application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True

 

[Greg]

Thankyou again

Greg