I have a workbook that performs a number of routines when the workbook is
opened (in the On Open event). This can take a few seconds and is longer
than just opening a new workbook.

I would like to display a message while these routines are running (so the
user doesn't do anything with the workbook) and then automatically close the
message when the routines have finished.

Is this even possible? Are there ways to display a msgbox or similar item
without any buttons for the user to push.

Thanks. Any suggestions are greatly appreciated....

--
JT

1. open a textbox or make a cell comment visible
2. do your thing
3 close the textbox or make the cell comment not visible.
--
Gary''s Student
gsnu200708


"JT" wrote:

I have a workbook that performs a number of routines when the workbook is
opened (in the On Open event). This can take a few seconds and is longer
than just opening a new workbook.

I would like to display a message while these routines are running (so the
user doesn't do anything with the workbook) and then automatically close the
message when the routines have finished.

Is this even possible? Are there ways to display a msgbox or similar item
without any buttons for the user to push.

Thanks. Any suggestions are greatly appreciated....

--
JT

On Mar 2, 9:20 am, JT wrote:
I have a workbook that performs a number of routines when the workbook is
opened (in the On Open event). This can take a few seconds and is longer
than just opening a new workbook.

I would like to display a message while these routines are running (so the
user doesn't do anything with the workbook) and then automatically close the
message when the routines have finished.

Is this even possible? Are there ways to display a msgbox or similar item
without any buttons for the user to push.

Thanks. Any suggestions are greatly appreciated....

--
JT

In your workbook open event, you could show a userform with something
like "Workbook is loading..." on it.
load your other events into the code for the form. The hide the form
again when it's all done.

In your ThisWorkbook module:

Private Sub Workbook_Open()
UserForm1.Show
End Sub



This is the code you'll need for the form:

Private Sub UserForm_Activate()
Me.Repaint

'Your opening code goes here

Unload Me
End Sub