Automatisk åbning af en userform når en excelfil åbnes

Hvorfor må excelarket ikke vises?
Hvor mange ark ligger i filen?
Userformen kan godt være så stor at den dækker hele skærmen - er det tilstrækkeligt?
Hvad skal Userform indeholde?

I excelfilens VBA-vindue (Alt+F11) - i ThisWorkbook:
Sub Workbook_activate
      load userform1
      userform1.show
End Sub

Det er af rent kosmetiske årsager at jeg kun ville vise userformen.
Der ligger 5 ark i filen. Userformen behøver ikke at være specielt stor.
Jeg har lavet userformen. Det er en simpel én der henter nogle ark og printer dem. Jeg har lavet en Application.ScreenUpdating = False så man ikke kan se hvad den laver.

??? - du svarer selv..

Nej jeg vil gerne have at man slet ikke ser Excelarket hvis det er muligt.

eet ark SKAL være synligt - men dette kan jo være tomt:

VBA-koden indlægges i ThisWorkbook:
Sub workbook_activate()
    With ActiveWorkbook
Rem Tilføj et tomt ark - da MINDST eet skal være synligt
        .Sheets.Add
        .ActiveSheet.Name = "tomt"
       
Rem Skjul de øvrige ark
        For Each sh In .Sheets
            If sh.Name <> "tomt" Then
                sh.Visible = False
            End If
        Next
    End With
End Sub
Sub VisArk()
    With ActiveWorkbook
       
Rem vis de øvrige ark
        For Each sh In .Sheets
            If sh.Name <> "tomt" Then
                sh.Visible = True
            End If
        Next

Rem Slet tomt ark
        Application.DisplayAlerts = False
        .Sheets("tomt").Delete
    End With
    Application.DisplayAlerts = True
End Sub