Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / Excel / New Users / June 2006

Tip: Looking for answers? Try searching our database.

Delete worksheet with no user prompt with VBA

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Graham Whitehead - 21 Jun 2006 14:17 GMT
Is there anyway I can prevent the user prompt from appearing when I use code
to delete a worksheet?  thanks.
aidan.heritage@virgin.net - 21 Jun 2006 14:26 GMT
taken from the help file

DisplayAlerts Property
See Also Applies To Example Specifics
True if Microsoft Excel displays certain alerts and messages while a
macro is running. Read/write Boolean.

Remarks
The default value is True. Set this property to False if you don't
want to be disturbed by prompts and alert messages while a macro is
running; any time a message requires a response, Microsoft Excel
chooses the default response.

If you set this property to False, Micorosoft Excel sets this property
to True when the code is finished, unless you are running cross process
code.

When using the SaveAs method for workbooks to overwrite an existing
file, the 'Overwrite' alert has a default of 'No', while the 'Yes'
response is selected by Excel when the DisplayAlerts property is set
equal to True.

Example
This example closes the workbook Book1.xls and doesn't prompt the
user to save changes. Any changes to Book1.xls aren't saved.

Application.DisplayAlerts = False
Workbooks("BOOK1.XLS").Close
Application.DisplayAlerts = True
This example suppresses the message that otherwise appears when you
initiate a DDE channel to an application that's not running.

Application.DisplayAlerts = False
channelNumber = Application.DDEInitiate( _
   app:="WinWord", _
   topic:="C:\WINWORD\FORMLETR.DOC")
Application.DisplayAlerts = True
Application.DDEExecute channelNumber, "[FILEPRINT]"
Application.DDETerminate channelNumber
Application.DisplayAlerts = True

> Is there anyway I can prevent the user prompt from appearing when I use code
> to delete a worksheet?  thanks.
Gord Dibben - 21 Jun 2006 17:20 GMT
Graham

Sub SheetDelete()
   Application.DisplayAlerts = False
   ActiveWindow.SelectedSheets.Delete
   Application.DisplayAlerts = True
End Sub

Gord Dibben  MS Excel MVP

>Is there anyway I can prevent the user prompt from appearing when I use code
>to delete a worksheet?  thanks.
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.