hiding sheets using a form
 

i have a spreadsheet with sheets named as follows

St1, St2, St3, St4, St5 etc...

I would like to enter a number into a cell on a separate sheet that will
only show the sheets up to that number and hide the rest.

For example if i enter 3, I would like St1, St2 and St3 to show and the rest
to be hidden.

I am going to use a form to enter the number into the sheet, but for the
moment i need to find code to do the task first.

Can anyone help?

hiding sheets using a form
 

On 14 Dec., 03:51, Roger on Excel
wrote:
i have a spreadsheet with sheets named as follows

St1, St2, St3, St4, St5 etc...

I would like to enter a number into a cell on a separate sheet that will
only show the sheets up to that number and hide the rest.

For example if i enter 3, I would like St1, St2 and St3 to show and the rest
to be hidden.

I am going to use a form to enter the number into the sheet, but for the
moment i need to find code to do the task first.

Can anyone help?

Try this:

Sub Hide_Show_Sheets
SheetNum = ThisWorkbook.Sheets.Count
LastShow = Worksheets("Sheet1").Range("A1").Value

For c = 1 To SheetNum
If c LastShow Then
Sheets("St" & c).Visible = False
Else
Sheets("St" & c).Visible = True

End Sub

Regards Per