Code Assistance

[Aaron]

I have code that I need help with if anyone can assist. Code as follows:

Private Sub CreateClass_Click()
Dim ClassSheet As Worksheet
For Each ClassSheet In Worksheets
Range("FORMULACOPY").Copy
ClassSheet.Select
Range("E5").pastespecial Paste:=7, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
Next ClassSheet
frmChoice.Hide 'Unload Me
End Sub

This is a button on a form. What I am trying to do is Copy the range on visible Worksheet names that start with 0. How can I skip certain worksheets?

 

[DonkeyOte]

after the For Each ...

i.e your sheet is selected

Have a definition that refers to the sheet

ie.

LCSHEET = Left(ClassSheet,1)

If LCSHEET <> 0 Then GoTo 99

99 should be entered as the last bit of code before the NEXT CLASSSHEET (so it skips the remainder of the macro in the loop and just loops to the next ClassSheet)

LCSHEET simply checks the first character of ClassSheet

Any help?

 

[Andrew Poulsom]

Try this:

Private Sub CreateClass_Click() 
   Dim ClassSheet As Worksheet 
   Range("FORMULACOPY").Copy 
   For Each ClassSheet In Worksheets 
      If ClassSheet.Visible = True Then
         If Left(ClassSheet.Name,1) = "0" Then
            ClassSheet.Range("E5").PasteSpecial Paste:=7, Operation:=xlNone, SkipBlanks:=False, _ 
Transpose:=False 
         End If
      End If
   Next ClassSheet 
frmChoice.Hide 'Unload Me 
End Sub

 

[Aaron]

Thank you both either one works great. Now here is a second question. My form lets the user select (via checkbox) a class. There are 50 classes to choose from, and each class has its own worksheet. The formulacopy range is on its own worksheet sheet as well. What would either of you recommend to clear the formulas if the checkbox is deselected? BTW thanks for your quick reply.