Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Disable Events
I have a workbook ("Marketing.xls") and contain a macro as below. When I
save as the file to another name, I want to disable the macro. Please help ... my macro won't work Private Sub Workbook_Open() If ThisWorkbook.Name = "Marketing.XLS" Then For Each ws In Worksheets If ws.Name Like "Costing (2)" Or ws.Name Like "T&A (2)" Or ws.Name Like "Order Confirmations (2)" Then ws.Delete End If Next ws End If End Sub --- Message posted from http://www.ExcelForum.com/ |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Disable Events
Could it be as simple as an uppercase/lowercase problem:
Maybe: If ThisWorkbook.Name = "Marketing.XLS" Then should be: If lcase(ThisWorkbook.Name) = lcase("Marketing.XLS") Then I'm not sure if "my macro won't work" means that it runs when it shouldn't or it never runs at all??? wiwi wrote: I have a workbook ("Marketing.xls") and contain a macro as below. When I save as the file to another name, I want to disable the macro. Please help ... my macro won't work Private Sub Workbook_Open() If ThisWorkbook.Name = "Marketing.XLS" Then For Each ws In Worksheets If ws.Name Like "Costing (2)" Or ws.Name Like "T&A (2)" Or ws.Name Like "Order Confirmations (2)" Then ws.Delete End If Next ws End If End Sub --- Message posted from http://www.ExcelForum.com/ -- Dave Peterson |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Disable Events
I suspect it is the case of the filename versus the test you are using.
Try changing the 2nd line to read If UCase(ThisWorkbook.Name) = "MARKETING.XLS" Then Cheers N "wiwi" wrote in message ... I have a workbook ("Marketing.xls") and contain a macro as below. When I save as the file to another name, I want to disable the macro. Please help ... my macro won't work Private Sub Workbook_Open() If ThisWorkbook.Name = "Marketing.XLS" Then For Each ws In Worksheets If ws.Name Like "Costing (2)" Or ws.Name Like "T&A (2)" Or ws.Name Like "Order Confirmations (2)" Then ws.Delete End If Next ws End If End Sub --- Message posted from http://www.ExcelForum.com/ ----== Posted via Newsfeed.Com - Unlimited-Uncensored-Secure Usenet News==---- http://www.newsfeed.com The #1 Newsgroup Service in the World! 100,000 Newsgroups ---= 19 East/West-Coast Specialized Servers - Total Privacy via Encryption =--- |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Disable Events
You're right. The case sensitive problem
Thanks you very muc -- Message posted from http://www.ExcelForum.com |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Events won't Disable! | Excel Discussion (Misc queries) | |||
events? | Excel Discussion (Misc queries) | |||
events | Excel Programming | |||
events | Excel Programming | |||
Disable Key Events | Excel Programming |