Hi Tony,
Here is the code that I am using. It creates a dialogue box that uses the
worksheets names - I use this box that is created to select specific sheets
for printing.

Add a temporary dialog sheet
   Set CurrentSheet = ActiveSheet
   Set PrintDlg = ActiveWorkbook.DialogSheets.Add

   SheetCount = 0

'   Add the checkboxes
   TopPos = 40
   For i = 1 To ActiveWorkbook.Worksheets.Count
       Set CurrentSheet = ActiveWorkbook.Worksheets(i)
'       Skip empty sheets and hidden sheets
       If Application.CountA(CurrentSheet.Cells) <> 0 And _
           CurrentSheet.Visible Then
           SheetCount = SheetCount + 1
           PrintDlg.CheckBoxes.Add 78, TopPos, 150, 16.5
               PrintDlg.CheckBoxes(SheetCount).Text = _
                   CurrentSheet.Name
           TopPos = TopPos + 13
       End If
   Next i

'   Move the OK and Cancel buttons
   PrintDlg.Buttons.Left = 240

'   Set dialog height, width, and caption
   With PrintDlg.DialogFrame
       .Height = Application.Max _
           (68, PrintDlg.DialogFrame.Top + TopPos - 34)
       .Width = 230
       .Caption = "Select Formulas to print"
   End With

I'd just like to be able to have the names/list in two columns instead of
one - the list is too long to be able to see them all, in one column!

Thanks!