Running macro on open of workbook?

Hello,
How do I set up a macro within a workbook to run when it opens, and when the
macro is done running a message box saying Macro Finished?

Any help??
Lime

Read this page
http://www.cpearson.com/excel/events.htm

Try this example

Private Sub Workbook_Open()
Dim sh As Worksheet
For Each sh In ThisWorkbook.Worksheets
sh.Range("A1").Value = Format(Date, "dd-mmm-yyyy")
Next sh
MsgBox "All sheets have today's date in A1"
End Sub



--
Regards Ron De Bruin
http://www.rondebruin.nl



"Lime" <Lime@discussions.microsoft.com> wrote in message news:A748D31D-C738-4209-A2DE-FAE6F77680D9@microsoft.com...
> Hello,
> How do I set up a macro within a workbook to run when it opens, and when the
> macro is done running a message box saying Macro Finished?
>
> Any help??
> Lime

Here is what I have but it is not working, Am i Missing something??
Private Sub workbook_Open()

Sub addsheet()
Sheets("Sheet2").Select
Sheets.Add
MsgBox ("Macro finished")




"Bearacade" wrote:

>
> Put this in ThisWorkbook in VBA
>
> Private Sub Workbook_Open()
>
> Call whateveryourmacroiscalled()
> MsgBox ("Macro Finished")
>
> End Sub
>
>
> --
> Bearacade
>
>
> ------------------------------------------------------------------------
> Bearacade's Profile: http://www.excelforum.com/member.php...o&userid=35016
> View this thread: http://www.excelforum.com/showthread...hreadid=551938
>
>

I got it... DUHA>>>>>

"Lime" wrote:

> Here is what I have but it is not working, Am i Missing something??
> Private Sub workbook_Open()
>
> Sub addsheet()
> Sheets("Sheet2").Select
> Sheets.Add
> MsgBox ("Macro finished")
>
>
>
>
> "Bearacade" wrote:
>
> >
> > Put this in ThisWorkbook in VBA
> >
> > Private Sub Workbook_Open()
> >
> > Call whateveryourmacroiscalled()
> > MsgBox ("Macro Finished")
> >
> > End Sub
> >
> >
> > --
> > Bearacade
> >
> >
> > ------------------------------------------------------------------------
> > Bearacade's Profile: http://www.excelforum.com/member.php...o&userid=35016
> > View this thread: http://www.excelforum.com/showthread...hreadid=551938
> >
> >

Thank you all for you help...



"Lime" wrote:

> Here is what I have but it is not working, Am i Missing something??
> Private Sub workbook_Open()
>
> Sub addsheet()
> Sheets("Sheet2").Select
> Sheets.Add
> MsgBox ("Macro finished")
>
>
>
>
> "Bearacade" wrote:
>
> >
> > Put this in ThisWorkbook in VBA
> >
> > Private Sub Workbook_Open()
> >
> > Call whateveryourmacroiscalled()
> > MsgBox ("Macro Finished")
> >
> > End Sub
> >
> >
> > --
> > Bearacade
> >
> >
> > ------------------------------------------------------------------------
> > Bearacade's Profile: http://www.excelforum.com/member.php...o&userid=35016
> > View this thread: http://www.excelforum.com/showthread...hreadid=551938
> >
> >