Counting how long a Macro takes to run

I have a Macro that Opens, saves & closes a directory of files (to
automatically update data links, etc). I would like to add a little piece of
code that takes note of the time the Marco Starts & Stops & displays the time
it took to run when it is completed.

I currently have code that displays the quantity of files updated.

MsgBox "Update Complete. " & Counter & " Files Updated"

I was wondering if it was possible to perhaps capture the before & after
times & just subtract them (but I know dates/times in Excel are weird so I'm
not sure how to do it)

Thank you.
Regards,
Diane

Good afternoon

Try this:

Sub Your_macro()

Dim counter As Single
counter = Timer

< Your macro code goes here>

MsgBox "That took " & Timer - counter & " seconds."

End sub

HTH

dim sngStart as Single

sngStart = Now
- your code

MsgBox "Update Complete. " & Counter & _
" Files Updated" & VBNewline &
" took " & format(now - sngStart,"hh:mm:ss")

--
Regards,
Tom Ogilvy


"Diane Alsing" <[email protected]> wrote in message
news:[email protected]...
> I have a Macro that Opens, saves & closes a directory of files (to
> automatically update data links, etc). I would like to add a little piece
of
> code that takes note of the time the Marco Starts & Stops & displays the
time
> it took to run when it is completed.
>
> I currently have code that displays the quantity of files updated.
>
> MsgBox "Update Complete. " & Counter & " Files Updated"
>
> I was wondering if it was possible to perhaps capture the before & after
> times & just subtract them (but I know dates/times in Excel are weird so
I'm
> not sure how to do it)
>
> Thank you.
> Regards,
> Diane

As always - fantastic! Thanks.

"Tom Ogilvy" wrote:

> dim sngStart as Single
>
> sngStart = Now
> - your code
>
> MsgBox "Update Complete. " & Counter & _
> " Files Updated" & VBNewline &
> " took " & format(now - sngStart,"hh:mm:ss")
>
> --
> Regards,
> Tom Ogilvy
>
>
> "Diane Alsing" <[email protected]> wrote in message
> news:[email protected]...
> > I have a Macro that Opens, saves & closes a directory of files (to
> > automatically update data links, etc). I would like to add a little piece
> of
> > code that takes note of the time the Marco Starts & Stops & displays the
> time
> > it took to run when it is completed.
> >
> > I currently have code that displays the quantity of files updated.
> >
> > MsgBox "Update Complete. " & Counter & " Files Updated"
> >
> > I was wondering if it was possible to perhaps capture the before & after
> > times & just subtract them (but I know dates/times in Excel are weird so
> I'm
> > not sure how to do it)
> >
> > Thank you.
> > Regards,
> > Diane
>
>
>