Slight modification:

Dim WS As Worksheet
Set WS = ActiveSheet
Application.ScreenUpdating = False
ThisWorkbook.Worksheets.Add
WS.Activate
Application.ScreenUpdating = True

- Jon
-------
Jon Peltier, Microsoft Excel MVP
Tutorials and Custom Solutions
http://PeltierTech.com
_______


"NickHK" wrote in message
...
Steve,
One way:

Dim WS As Worksheet
Set WS = ActiveSheet
ThisWorkbook.Worksheets.Add
WS.Activate

NickHK

"Steve Haack" wrote in message
...
I am unsing the .Copy method to add new worksheets to a workbook, by
copying
a template sheet that is already in the workbook. I am calling the code
from
a command button placed on a home "sheet".

The code works fine, but when it adds the new sheet, it changes the focus
to
it. I would like to know if it is possible to copy/add the new sheet and
not
have it gain the focus?