I have an Access app that creates a new worksheet in the workbook chosen by
the user via a dialog box. I would like the new worksheet to appear at the
end of the existing collection of worksheets. Would anyone happen to know
the syntax for getting a count of sheets in the current workbook and using
that count to place the new sheet at the end?

Many thanks.

Keith.

xlApp is a reference to the currently opened Excel workbook and xlWS is the
reference to the new sheet you have added

xlWS.Move After:=xlApp.Worksheets(xlApp.Worksheets.Count)

"Keith Wilby" wrote:

> I have an Access app that creates a new worksheet in the workbook chosen by
> the user via a dialog box. I would like the new worksheet to appear at the
> end of the existing collection of worksheets. Would anyone happen to know
> the syntax for getting a count of sheets in the current workbook and using
> that count to place the new sheet at the end?
>
> Many thanks.
>
> Keith.
>
>

"Dennis" <(E-Mail Removed)> wrote in message
news:73A3B08C-E028-46F3-A018-(E-Mail Removed)...
> xlApp is a reference to the currently opened Excel workbook and xlWS is
> the
> reference to the new sheet you have added
>
> xlWS.Move After:=xlApp.Worksheets(xlApp.Worksheets.Count)
>

Dennis, thank you, just the job.

Regards,
Keith.