Excel startup with buttons

A

alanad

Below is what I have in the module so far. Could you give me an exampl
of what I could add? Perhaps it is a simple solution, but I'm new a
this!

Private Sub Workbook_Open()
Dim cf As ChooseCalculator
Set cf = New ChooseCalculator
cf.Show
Set cf = Nothing
End Su
 
C

Casper

Sorry for my bad English.

Tray this:

Private Sub Workbook_Open()
Dim cf As ChooseCalculator


Dim list As Worksheet
For Each list In ActiveWorkbook.Worksheets
If list.Name <> "Sheet1" Then
list.Visible = xlSheetHidden
End If
Next

Set cf = New ChooseCalculator
cf.Show
Set cf = Nothing
End Sub


This will hide all sheets except "Sheet1" due limitation in Excel, a
least one sheet must be visible.
I think you should tray to slove your problem by changing size of Exce
main window, or puting controls in this sheet instead on the form
 
Top