And one more modification...
'--
Dim WS As Worksheet
Set WS = ActiveSheet
Application.ScreenUpdating = False
ThisWorkbook.Worksheets.Add Count:=1
WS.Activate
Application.ScreenUpdating = True
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
"Jon Peltier"
wrote in message
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?