I have a macro that is deleting worksheet pages that do not have data
entry. It can range from 1-23 worksheets that are going to be deleted.
Since I am deleting a workseet, I receive the notice that: "Data may
exist in the sheet(s) selected for deletion. To permanently delete the
sheets, press Delete." Then I press delete, and the macro continues to
the next sheet.
Is there a way to automatically set it to delete without the caution?

TIA,

Josh

My code for going through the workbook is as follows:
The first sheets are necessary to the workbook so they are skipped.
(i=4)

For i = 4 To Sheets.Count
If Sheets(i).Range("A12").Value = "" Then Sheets(i).Delete
Next i

For i = 4 To Sheets.Count
If Sheets(i).Range("A12").Value = "" Then
application.displayalerts = false
Sheets(i).Delete
application.displayalerts = true
end if
Next i

JMac wrote:
>
> I have a macro that is deleting worksheet pages that do not have data
> entry. It can range from 1-23 worksheets that are going to be deleted.
> Since I am deleting a workseet, I receive the notice that: "Data may
> exist in the sheet(s) selected for deletion. To permanently delete the
> sheets, press Delete." Then I press delete, and the macro continues to
> the next sheet.
> Is there a way to automatically set it to delete without the caution?
>
> TIA,
>
> Josh
>
> My code for going through the workbook is as follows:
> The first sheets are necessary to the workbook so they are skipped.
> (i=4)
>
> For i = 4 To Sheets.Count
> If Sheets(i).Range("A12").Value = "" Then Sheets(i).Delete
> Next i

--

Dave Peterson

Application.DisplayAlerts = False
'your delete code
Application.DisplayAlerts = True


--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"JMac" <(E-Mail Removed)> wrote in message
news:e1876c32-2890-4b72-8f11-(E-Mail Removed)...
>I have a macro that is deleting worksheet pages that do not have data
> entry. It can range from 1-23 worksheets that are going to be deleted.
> Since I am deleting a workseet, I receive the notice that: "Data may
> exist in the sheet(s) selected for deletion. To permanently delete the
> sheets, press Delete." Then I press delete, and the macro continues to
> the next sheet.
> Is there a way to automatically set it to delete without the caution?
>
> TIA,
>
> Josh
>
> My code for going through the workbook is as follows:
> The first sheets are necessary to the workbook so they are skipped.
> (i=4)
>
> For i = 4 To Sheets.Count
> If Sheets(i).Range("A12").Value = "" Then Sheets(i).Delete
> Next i

This will stop the messages:

Application.DisplayAlerts = False

Set it to True to turn them back on again.

Hope this helps.

Pete

On Jan 28, 5:21*pm, JMac <mcdow...@gmail.com> wrote:
> I have a macro that is deleting worksheet pages that do not have data
> entry. It can range from 1-23 worksheets that are going to be deleted.
> Since I am deleting a workseet, I receive the notice that: "Data may
> exist in the sheet(s) selected for deletion. To permanently delete the
> sheets, press Delete." Then I press delete, and the macro continues to
> the next sheet.
> Is there a way to automatically set it to delete without the caution?
>
> TIA,
>
> Josh
>
> My code for going through the workbook is as follows:
> The first sheets are necessary to the workbook so they are skipped.
> (i=4)
>
> For i = 4 To Sheets.Count
> If Sheets(i).Range("A12").Value = "" Then Sheets(i).Delete
> Next i

On Jan 28, 11:31*am, Dave Peterson <peter...@verizonXSPAM.net> wrote:
> For i = 4 To Sheets.Count
> * If Sheets(i).Range("A12").Value = "" Then
> * * application.displayalerts = false
> * * Sheets(i).Delete
> * * application.displayalerts = true
> * end if
> Next i
>
>
>
>
>
> JMac wrote:
>
> > I have a macro that is deleting worksheet pages that do not have data
> > entry. It can range from 1-23 worksheets that are going to be deleted.
> > Since I am deleting a workseet, I receive the notice that: "Data may
> > exist in the sheet(s) selected for deletion. To permanently delete the
> > sheets, press Delete." Then I press delete, and the macro continues to
> > the next sheet.
> > Is there a way to automatically set it to delete without the caution?
>
> > TIA,
>
> > Josh
>
> > My code for going through the workbook is as follows:
> > The first sheets are necessary to the workbook so they are skipped.
> > (i=4)
>
> > For i = 4 To Sheets.Count
> > If Sheets(i).Range("A12").Value = "" Then Sheets(i).Delete
> > Next i
>
> --
>
> Dave Peterson- Hide quoted text -
>
> - Show quoted text -

Thanks! this helps alot!