BIGTONE559
Active Member
- Joined
- Apr 20, 2011
- Messages
- 336
I have the following Code:
I need help excluding sheets. I've inserted lines of code but i keep getting errors.
Code:
Private Sub UserForm_Initialize()
Dim ExcludedSheets As Variant
Dim oneSheet As Worksheet
For Each oneSheet In ThisWorkbook.Sheets
With oneSheet
If IsError(Application.Match(.Name, ExcludedSheets, 0)) Then
ListBox1.AddItem .Name
End If
End With
Next oneSheet
End Sub
I need help excluding sheets. I've inserted lines of code but i keep getting errors.