R
raymond.allan
Hi,
I have a form named "Main" which occasionally err's out on the
Main.Show line when ran on Excel 2003, if Continue is clicked the form
will appear but other unexplainable problems then start appearing in
other modules when the user selects options from the form
Until recently the code below has worked fine in Excel 2003
(11.5612.5606), I do not know if there has been any office updates made
to the PC's that use Excel 2003 which has caused this to err on the
Main.Show line (See code snippet below)
I myself use Excel 2000 (9.0.4402 SR-1) as do a lot of other users and
the code works fine
Code below is in a Autpen module
With Main
.dFolder = "\\Kels-dsk-001\Projected Inventory\"
.wFolder = "\\Kels-dsk-001\Shared\Raymond Allan\"
.NewFile.Value = ThisWorkbook.Name
.MultiPage1.Value = 0
.cb6 = False
.EndOfQtr = Format(GetLastQuarterEnd, "dd-mmm-yy")
.fMonth = Month(Now())
End With
Windows(Main.NewFile).Activate
' Hide the workbook during the running of the program
Windows(Main.NewFile).Visible = False
Main.Show
Any help or advice on this greatly appreciated
I have a form named "Main" which occasionally err's out on the
Main.Show line when ran on Excel 2003, if Continue is clicked the form
will appear but other unexplainable problems then start appearing in
other modules when the user selects options from the form
Until recently the code below has worked fine in Excel 2003
(11.5612.5606), I do not know if there has been any office updates made
to the PC's that use Excel 2003 which has caused this to err on the
Main.Show line (See code snippet below)
I myself use Excel 2000 (9.0.4402 SR-1) as do a lot of other users and
the code works fine
Code below is in a Autpen module
With Main
.dFolder = "\\Kels-dsk-001\Projected Inventory\"
.wFolder = "\\Kels-dsk-001\Shared\Raymond Allan\"
.NewFile.Value = ThisWorkbook.Name
.MultiPage1.Value = 0
.cb6 = False
.EndOfQtr = Format(GetLastQuarterEnd, "dd-mmm-yy")
.fMonth = Month(Now())
End With
Windows(Main.NewFile).Activate
' Hide the workbook during the running of the program
Windows(Main.NewFile).Visible = False
Main.Show
Any help or advice on this greatly appreciated