Home |
Search |
Today's Posts |
#1
|
|||
|
|||
Private sub
I have the following running under a command button.
it works once and then the next time an error appears on the following line under Sh For Each Sh In wb.Worksheets Private Sub CommandButton1_Click() Dim wb As Workbook 'copy all sheets Worksheets.Copy Set wb = ActiveWorkbook Application.DisplayAlerts = False 'delete the sheets you want wb.Sheets(Array("Suspense", "RCA exc RIM", "Operations summary", "RCA incl RIM", "First Qtr", "Second Qtr", "Third Qtr", "Fourth Qtr")).Delete Application.DisplayAlerts = True For Each Sh In wb.Worksheets Sh.Columns("A:B").EntireColumn.Delete Next End Sub Any help please Mark |
#2
|
|||
|
|||
Sorry got it working.
i had it running under option explicit, when i removed this it works fine. mark -----Original Message----- I have the following running under a command button. it works once and then the next time an error appears on the following line under Sh For Each Sh In wb.Worksheets Private Sub CommandButton1_Click() Dim wb As Workbook 'copy all sheets Worksheets.Copy Set wb = ActiveWorkbook Application.DisplayAlerts = False 'delete the sheets you want wb.Sheets(Array("Suspense", "RCA exc RIM", "Operations summary", "RCA incl RIM", "First Qtr", "Second Qtr", "Third Qtr", "Fourth Qtr")).Delete Application.DisplayAlerts = True For Each Sh In wb.Worksheets Sh.Columns("A:B").EntireColumn.Delete Next End Sub Any help please Mark . |
#3
|
|||
|
|||
Removing Option Explicit should never fix the problem you posted. It
affects only the compiling of the project - if it ran once, then it compiled OK. In article , "Mark" wrote: Sorry got it working. i had it running under option explicit, when i removed this it works fine. |
#4
|
|||
|
|||
I have this worksheet running in a database on lotus
notes and i have had problems with this in the past for example. when i set up a workbook it work great however when i move it to the shared database problems start to occur. i have assumed from this that it must be the lotus notes database. thanks for your help mark. -----Original Message----- Removing Option Explicit should never fix the problem you posted. It affects only the compiling of the project - if it ran once, then it compiled OK. In article , "Mark" wrote: Sorry got it working. i had it running under option explicit, when i removed this it works fine. . |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Default view of Excel to 75% | Excel Discussion (Misc queries) | |||
Userform - Printing | Excel Worksheet Functions | |||
Macro to simply bring up the Find dialogue box?? | Excel Discussion (Misc queries) | |||
Data Entry Alert in User Form | Excel Discussion (Misc queries) | |||
Check boxes to show/hide Tabs | Excel Worksheet Functions |