VBA hide rows and columns

[FryGirl]

I'm using a form to capture users input on how many rows/columns show be hidden. Actually, the use with enter on the form the number they want to keep.

The first code below I have for hiding rows, but need it to be variable. It works fine, but not for the columns. Versus using the letter, I need to hide columns by number.

My attempt is below at least for the rows.

Sub HideRowsCols()
    With Sheets("Linest")
        .Rows("24:103").EntireRow.Hidden = True
        .Columns("8:27").Hidden = True
    End With
End Sub

Sub HideRowsCols()
    Dim x As Long: x = 24
    Dim xx As Long: xx = 103
    With Sheets("Sheet1")
        .Rows(" x " & ":" & " xx ").EntireRow.Hidden = True
        .Columns("8:27").EntireColumn.Hidden = True
    End With
End Sub

 

[Akuini]

Try this:

Sub HideRowsCols()
    a = 2
    b = 7
    c = 2
    d = 5
    
    With Sheets("sheet1")
        .Rows(a & ":" & b).EntireRow.Hidden = True
        .Range(.Cells(1, c), .Cells(1, d)).EntireColumn.Hidden = True
    End With
End Sub

 

[FryGirl]

Thank you, that does it.

 

[Akuini]

Thank you, that does it.

You're welcome & thanks for replying.