I have a workbook with about 15 worksheets. What I am trying to do is to create a form with checkboxes (one corresponding to each worksheet) to let the user choose which worksheets to include in a new email using Sendmail.

This is what I have so far...

Private Sub CommandButton1_Click()

Dim recipient As String
recipient = Range("A4").Value

Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Copy

With ActiveWorkbook

.SendMail Recipients:=recipient, Subject:="Renewal forms " & Format(Date, "dd/mmm/yy")

.Close SaveChanges:=False

End With

End Sub


This all works... all I need to do now is to be able to somehow create the array of sheets based on the checkboxes selected. I hope this makes sense. Any pointers or suggestions would be greatly appreciated.

Thanks!!