View Single Post
  #6   Report Post  
Posted to microsoft.public.excel.programming
[email protected] snowbdr@gmail.com is offline
external usenet poster
 
Posts: 3
Default Use a macro to create new sheets

Thank you very much for the references. I had already been to a few of
them but most were new to me. Right now I have attempted to get
through the first part with some success but then made changes and
didn't save in time.

Just for clarification, here is what I am trying to do:

I have a list of check boxes on sheet one. Each checkbox is a product
and there are 15 checkbox items but that quantity will expand
periodically. The user will click a few or possibly all of the
checkboxes and then click an update button. The update button will
create a new sheet for each selected box. The new sheet will be a copy
of sheet2 which is a general template that they will fill out. The new
sheets will be named corresponding to the checkbox name and a cell in
the new sheets will also contain the corresponding checkbox name.

The items listed on sheet1 are Carmine, Earlibrite, Festival, Galante,
etc... If selected then these names will also be the names of the
sheets and the header or title on each of those sheets.

The code I currently have is the following:

Private Sub UpdateButton_Click()

Dim ctl As OLEObject

For Each ctl In Sheet2.OLEObjects
If TypeName(ctl.Object) = "CheckBox" Then
If ctl.Object.Value = True Then
Worksheets.Add After:=Worksheets("Sheet2")
Worksheets(Worksheets.Count - 1).Name = CheckBox.Name
CheckBox.Name = ""

End If
End If
Next ctl
End Sub

In the meantime I have ordered John Walkenbach's book on VBA
programming because his book Excel Formulas 2000 has been my bible.

Thank you Steve