Cursor change during code execution

G

Geoff

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
 
G

Geoff

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

RePost - Creating WBooks 4
Excel process doesn't close? 3
Simplify save code 11
Code Execution has been interrupted - ?? 4
Save as marco 3
File SaveAs 4
Macro to save a workbook 1
Workbook_open - Sub problem 14

Top