Select Range of Cells Based on UserForm Input Value

[Drogan]

So I'm creating a UserForm that takes user input to create a worksheet based on the values input. My question is: How to select a range of cells based on a variable input value? For example, it asks how many competitors there are, and the user can input 5, 8, 10, etc. So I want that many cells in Row 1 selected, whatever the value input is. Thank you.

 

[TryingToLearn]

Sub Vrange()
Dim cl
    cl = InputBox("How many competitors?", "THIS MANY")
    Range("A1").Resize(, cl).Select
End Sub

 

[Drogan]

Ok, the InputBox is all well and good, but the thing is, I have a multiple field UserForm. So I need it to be pulled directly from the UserForm without having to use any extra input boxes separate from the UserForm. Is there a way to do that?

 

[Norie]

Try this.

Dim NoCompetitors As Long

     NoCompetitors = Val(Textbox1.Value)

     Worksheets("Sheet1").Range("A1").Resize(NoCompetitors).Select

 

[Drogan]

Thanks Norie, but unfortunately it gives me a type mismatch error. Is there something I'm missing?

 

[Norie]

What did you enter in the textbox?

 

[Drogan]

Well, the number of competitors, of course: 8, 10, 15... But it won't select the cells and gives me the Type Mismatch error.

 

[Norie]

It works for me.

What exact code did you use?

 

[Drogan]

The one you posted. I even tried a couple different variations. Here's the code I have:

Private Sub CommandButton1_Click()

Dim NoCom As Long

     'Number of Competitors
     NoCom = Val(TextBox1.Value)

'Select the range for number of competitors
Sheets(Sheet1).Range("A1").Resize(NoCom).Select

UserForm1.Hide

End Sub

 

[Norie]

That's not the same as the code I posted, this part is completely different.

Sheets(Sheet1)