Unhiding Sheets with Combobox selection and Duplicating Sheets Automatically

[D_Davis]

Hello,

I'm new here and seeking some assistance in a project I'm working on that's due in a couple days. I have searched at least 100 threads on multiple boards on the web for an answer and i'm partially there but not quite so with that being said here's what i'd appreciate some assistance with.

I have 25 sheets in the workbook and a combobox on the main page, The combobox references a range of 1-25 that represents the 25 hidden pages. right now i can get the sheets to unhide one at a time based on the selection e.g. combobox option 1 will unhide sheet 1 but the sheet are representing sites in a design so i need to have the option to select multiple sites in the combobox option so for example if i select 5 then sheets 1-5 should unhide. I hope I've explained that clearly.

The other question or option would be to just duplicate sheet 1 based on the combobox selection e.g. selection 5 duplicates sheet 1 5 times.

Thanks in advance for any assistance guys.

Dail

 

[D_Davis]

I had made a mistake. It should be .Visible and not .Hidden

Private Sub ComboBox2_Change()
    Dim i      As Integer
    If ComboBox1.Value <> "" Then
        Application.ScreenUpdating = False
        For i = 1 To ComboBox2.Value
            Sheets("Site" & i)[COLOR="Red"].Visible[/COLOR] = False
        Next i
        Application.ScreenUpdating = True
    [COLOR="Red"]End If[/COLOR]
End Sub

Than did it!!! I changed to Visible=True and its working great now! Thanks a mil, at least i'll be able to sleep tonight