Where to put DisplayAlerts = False

Hi,
I have tried inserting DisplayAlerts = False all over the following
block of code , but when I go to delete the sheets, it still asks if I
want to delete them. Is this not the right syntax or am I doing
something wrong?
Thanks,
Joe Fish

Sub SetUpScrollerInfo()

DisplayAlerts = False
Run ("DeleteOldSheets")
Run ("MakeNewSheets")
Run ("ImportData")
Run ("FormatData")
Run ("AddToPositionAndUnitNumberFormula")
Run ("DefineBundles")
Sheets("Scroller Info").Range("A1").Select

End Sub
Sub DeleteOldSheets()

DisplayAlerts = False
Sheets("Scroller Info").Delete
DisplayAlerts = False
Sheets("Spare Scroller Cables").Delete

You need to qualify 'DisplayAlerts' with 'Application'. E.g,

Application.DisplayAlerts = False

Without the Application qualification, VBA treats 'DisplayAlerts'
as a variable name, creates the variable, and assigns it a value
of False. This would be obvious if you properly placed 'Option
Explicit' at the top of your code module.


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com




"Joe Fish" <joefish534@yahoo.com> wrote in message
news:1130011561.557023.262460@g43g2000cwa.googlegroups.com...
> Hi,
> I have tried inserting DisplayAlerts = False all over the
> following
> block of code , but when I go to delete the sheets, it still
> asks if I
> want to delete them. Is this not the right syntax or am I doing
> something wrong?
> Thanks,
> Joe Fish
>
> Sub SetUpScrollerInfo()
>
> DisplayAlerts = False
> Run ("DeleteOldSheets")
> Run ("MakeNewSheets")
> Run ("ImportData")
> Run ("FormatData")
> Run ("AddToPositionAndUnitNumberFormula")
> Run ("DefineBundles")
> Sheets("Scroller Info").Range("A1").Select
>
> End Sub
> Sub DeleteOldSheets()
>
> DisplayAlerts = False
> Sheets("Scroller Info").Delete
> DisplayAlerts = False
> Sheets("Spare Scroller Cables").Delete
>

change to:
Application.DisplayAlerts = False
Your code....
Application.DisplayAlerts = True

"Joe Fish" <joefish534@yahoo.com> wrote in message
news:1130011561.557023.262460@g43g2000cwa.googlegroups.com...
> Hi,
> I have tried inserting DisplayAlerts = False all over the following
> block of code , but when I go to delete the sheets, it still asks if I
> want to delete them. Is this not the right syntax or am I doing
> something wrong?
> Thanks,
> Joe Fish
>
> Sub SetUpScrollerInfo()
>
> DisplayAlerts = False
> Run ("DeleteOldSheets")
> Run ("MakeNewSheets")
> Run ("ImportData")
> Run ("FormatData")
> Run ("AddToPositionAndUnitNumberFormula")
> Run ("DefineBundles")
> Sheets("Scroller Info").Range("A1").Select
>
> End Sub
> Sub DeleteOldSheets()
>
> DisplayAlerts = False
> Sheets("Scroller Info").Delete
> DisplayAlerts = False
> Sheets("Spare Scroller Cables").Delete
>