create a sheet but hiding it

[Maileen]

Hi,

When i open a form, my form check if a sheet call "admin" exists.
if not, it creates it.

Unfortunately, creating this sheet, show it to user's view...
1. i would like to create this missing sheet but hide its creation to
user's view. How can i do that ?

2. i would like to create this missing sheet but not on first position.
for example, i have already 1 existing sheet...and all sheets that i
create are inserted before the existing / focused sheet... can i setup
somewhere where i want to insert this new sheet ?

thanks a lot,
Maileen

 

[Frank Kabel]

Hi
1.
application.screenupdating=false
'create the sheet
application.screenupdating=true

2. Hi have a look at the VBA help for the 'After' part of the insert
sheet method

 

[crispbd]

Sub CheckAdminPage()
Dim CurSheet As String, NS As Object
Dim AdminPage As String
On Error GoTo SkipAll


AdminPage = "AdminPage"


CurSheet = ActiveSheet.Name
Application.ScreenUpdating = False

For Each c In ThisWorkbook.Sheets
If c.Name = AdminPage Then Exit Sub
Next

Set NS = ThisWorkbook.Sheets.Add
NS.Activate

NS.Name = AdminPage
NS.Move after:=Sheets(ThisWorkbook.Sheets.Count)
NS.Visible = False
Sheets(CurSheet).Activate


SkipAll:
Application.ScreenUpdating = True

End Su