VBA: Query While delete sheet using excel

[ssingh75]

Hi All,

I am using below code to delete the sheet from workbook.

For iTemp1 = Workbooks.Item(funEach.Name).Sheets.Count To 1 Step -1
Sheets(iTemp1).Select
If UCase(Sheets(iTemp1).Name) <> "TEMPLATE" And UCase(Sheets(iTemp1).Name) <> "WORKING" Then
Sheets(iTemp1).Delete
End If
Next

How can i avoid the below popup..
-Data may exist in the sheet(s) selected for delettion. To permanently delete the data press delete.

Please suggest..

 

[Soggy]

Add this at begining of the code.

Application.DisplayAlerts = False

Then set to true at the end.

 

[ssingh75]

Thanks for the same..

just one more query..

i am using below code for text to columns
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

After done with the code it should reset to original for all sheets of activeworkbook.

Is it possible..