Newbie Help - VBA to hide rows based on user input

[roboto]

I am a complete newbie when it comes to writing macros, but I was wondering if someone would be able to help me?

I want to click on a button (I know how to assign a macro to a button) and have a macro run that asks me which row numbers to hide and then pop up a print dialog.

Is this doable? I would appreciate any help any one could give me!

 

[VoG]

Try

Sub atest()
Dim x
Dim s As String, i As Long
s = InputBox("Enter row numbers to hide separated by ,")
x = Split(s, ",")
For i = LBound(x) To UBound(x)
    Rows(x(i)).Hidden = True
Next i
End Sub

 

[roboto]

Thank you for your help! I have one question though, is there a way to make it apply to a range? For example, if I want to hide rows 60-100 is there a way that I don't have to type in each row separated by a comma?

 

[VoG]

Try

Sub atest()
Dim x
Dim s As String, i As Long, j As Long, k As Long
s = InputBox("Enter row numbers to hide separated by -")
x = Split(s, "-")
i = x(LBound(x))
j = x(UBound(x))
For k = i To j
    Rows(k).Hidden = True
Next k
End Sub

 

[roboto]

Amazing! Thank you so much. You have made my life so much easier!

I take it there is no way for it to pop up a print dialog automatically then?

 

[VoG]

Try

Sub atest()
Dim x
Dim s As String, i As Long, j As Long, k As Long
s = InputBox("Enter row numbers to hide separated by -")
x = Split(s, "-")
i = x(LBound(x))
j = x(UBound(x))
For k = i To j
    Rows(k).Hidden = True
Next k
Application.Dialogs(xlDialogPrint).Show
End Sub

 

[roboto]

Perfect! Thanks again!