VBA Form to format a sheet

[mikechavarria]

I am interested in an Excel VBA form that takes the values from two txt boxes and formats the sheet to show the matrix of the values. So if a person enters 32 in box 1 and 32 in box 2 it formats the sheet to have 32 rows with 32 columns and hides the rest.

How would this be coded in 1 button? For some reason my brain just doesn't want me to understand this!

 

[VoG]

Maybe like this

ActiveSheet.ScrollArea = Range(Cells(1, textbox1.Value), Cells(textbox2.Value, 10)).Address

 

[mikechavarria]

I pasted that code and changed it to have my textbox labels but still not working.

I found this code and it does what I need, Just how do I modify it to run on a specified sheet?

Private Sub cmdOK_Click()
If Not IsNumeric(Me.txtRows) Then
Me.txtRows.SetFocus
MsgBox "Please enter a valid number of rows"
Exit Sub
End If
If Me.txtRows < 1 Or Me.txtRows > Rows.Count Then
Me.txtRows.SetFocus
MsgBox "Please enter a valid number of rows"
Exit Sub
End If
If Not IsNumeric(Me.txtColumns) Then
Me.txtColumns.SetFocus
MsgBox "Please enter a valid number of columns"
Exit Sub
End If
If Me.txtColumns < 1 Or Me.txtColumns > Rows.Count Then
Me.txtColumns.SetFocus
MsgBox "Please enter a valid number of columns"
Exit Sub
End If
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
Cells.EntireColumn.Hidden = False
Range(Cells(Me.txtRows + 1, 1), Cells(Rows.Count, 1)).EntireRow.Hidden = True
Range(Cells(1, Me.txtColumns + 1), Cells(1, Columns.Count)).EntireColumn.Hidden = True
Application.ScreenUpdating = True
Unload Me
End Sub