Ok, can I use the same concept to delete a sheet if it is unchecked.
Basically, the form is going to print out all the sheets that ar
checked, and I need it to delete the unchecked sheets before it save
the file to one of my drives.

Dim ctrl As Control
Dim chkbx As MSForms.CheckBox
For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.CheckBox Then
Set chkbx = ctrl
If chkbx Then
Worksheets(chkbx.Caption).PrintOut
End If
End If
Nex

--
Message posted from http://www.ExcelForum.com