View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Jim Cone Jim Cone is offline
external usenet poster
 
Posts: 3,290
Default Adding Worksheets without Switching to it

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?