Cursor change during code execution

Hi
I am unable to effectively change the cursor during a wbook add and save
operation from a cmdbutton on a form. From the code below there is sometimes
a brief change but not at the statement. The code forms part of an xla and
the new wbook can have anything from 50 to 40,000 plus rows - so some form of
indicator (apart fr4om the status bar) during the at times long copy
procedure would be very welcome.
Application.Screenupdating = True / False does not seem to have any effect.
Is there anything I am missing? Appreciate any advice.

T.I.A.

Geoff

Private Sub cmdExecute_Click()
'''.... other stuff

Application.Cursor = xlWait

'''add new wbook
Set procFile = Workbooks.Add()
'''save new wbook
procFile.SaveAs Filename:= _
fName, _
FileFormat:=xlNormal, _
Password:="", _
WriteResPassword:="", _
ReadOnlyRecommended:=False, _
CreateBackup:=False
'''copy required data
sh.UsedRange.Copy Destination:=procFile.Worksheets(1).Range("A1")
'''save new wbook with data
ActiveWorkbook.Save

Application.Cursor = xlDefault

'''.... other closing stuff
End Sub

Try some DoEvents statements before and after your cursor changes.

RBS

"Geoff" <[email protected]> wrote in message
news:[email protected]...
> Hi
> I am unable to effectively change the cursor during a wbook add and save
> operation from a cmdbutton on a form. From the code below there is
> sometimes
> a brief change but not at the statement. The code forms part of an xla
> and
> the new wbook can have anything from 50 to 40,000 plus rows - so some form
> of
> indicator (apart fr4om the status bar) during the at times long copy
> procedure would be very welcome.
> Application.Screenupdating = True / False does not seem to have any
> effect.
> Is there anything I am missing? Appreciate any advice.
>
> T.I.A.
>
> Geoff
>
> Private Sub cmdExecute_Click()
> '''.... other stuff
>
> Application.Cursor = xlWait
>
> '''add new wbook
> Set procFile = Workbooks.Add()
> '''save new wbook
> procFile.SaveAs Filename:= _
> fName, _
> FileFormat:=xlNormal, _
> Password:="", _
> WriteResPassword:="", _
> ReadOnlyRecommended:=False, _
> CreateBackup:=False
> '''copy required data
> sh.UsedRange.Copy Destination:=procFile.Worksheets(1).Range("A1")
> '''save new wbook with data
> ActiveWorkbook.Save
>
> Application.Cursor = xlDefault
>
> '''.... other closing stuff
> End Sub
>
>
>

Hi
I'd tried DoEvents with no success however, continuing the research, I have
found that using mousepointer does the trick as in:

frmBookMaker.MousePointer = fmMousePointerHourGlass
then
frmBookMaker.MousePointer = fmMousePointerDefault

As long as the mouse is not moved from the form this works fine.

Geoff

"RB Smissaert" wrote:

> Try some DoEvents statements before and after your cursor changes.
>
> RBS
>
> "Geoff" <[email protected]> wrote in message
> news:[email protected]...
> > Hi
> > I am unable to effectively change the cursor during a wbook add and save
> > operation from a cmdbutton on a form. From the code below there is
> > sometimes
> > a brief change but not at the statement. The code forms part of an xla
> > and
> > the new wbook can have anything from 50 to 40,000 plus rows - so some form
> > of
> > indicator (apart fr4om the status bar) during the at times long copy
> > procedure would be very welcome.
> > Application.Screenupdating = True / False does not seem to have any
> > effect.
> > Is there anything I am missing? Appreciate any advice.
> >
> > T.I.A.
> >
> > Geoff
> >
> > Private Sub cmdExecute_Click()
> > '''.... other stuff
> >
> > Application.Cursor = xlWait
> >
> > '''add new wbook
> > Set procFile = Workbooks.Add()
> > '''save new wbook
> > procFile.SaveAs Filename:= _
> > fName, _
> > FileFormat:=xlNormal, _
> > Password:="", _
> > WriteResPassword:="", _
> > ReadOnlyRecommended:=False, _
> > CreateBackup:=False
> > '''copy required data
> > sh.UsedRange.Copy Destination:=procFile.Worksheets(1).Range("A1")
> > '''save new wbook with data
> > ActiveWorkbook.Save
> >
> > Application.Cursor = xlDefault
> >
> > '''.... other closing stuff
> > End Sub
> >
> >
> >
>
>