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

--
Regards,
Tom Ogilvy

"Greg" wrote in message
...
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