Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete sheet on a condition: debug error
I have the following code.
The following sub is written for deleting a worksheet that has its name as 0. Code works but I dont get the desired result. Sub test1() Dim ws as worksheet For each ws InThisWorkbook.Worksheets If ws.name = 0 then Application.DisplayAlerts = False ws.delete End If Next End Sub The following sub is written for deleting worksheets if its index number is greater than 3. Again, Code works but dont get the desired result. Sub test2() Dim ws as worksheet For each ws InThisWorkbook.Worksheets Application.DisplayAlerts = False If ws.index 3 then ws.delete End If Next End Sub Any idea why this happens? Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete sheet on a condition: debug error
Hey there.
What is the desired result? C |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete sheet on a condition: debug error
On Nov 13, 12:54 pm, Colby Africa wrote:
Hey there. What is the desired result? C For test1, the desired result would be to delete the sheet that has the name as 0 For test2, the desired result would be to delete the sheets that has the index greater thanm 3. test2 runs quite okay but test1 does not do what I intend to do |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Delete sheet on a condition: debug error
I get it now. Okay, the worksheet Name property is a string, so try
something like this: Dim ws As Worksheet For Each ws In ActiveWorkbook.Worksheets If ws.Name = "0" Then Application.DisplayAlerts = False ws.Delete End If Next End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
PLEASE HELP! Copy sheet with password protected cells debug error | Excel Programming | |||
Error Won't Debug | Excel Programming | |||
debug error | Excel Programming | |||
down with the debug error | Excel Programming | |||
debug message pops up when I select a range of cells and delete | Excel Programming |