所需对象：VBA Excel，范围选择

Question

So I am getting an error in this line of code in this particular selection structure I am trying to formulate. I am trying to dynamically select a range based off of the selection of Demand and a user entry that gets read into UB, However I keep getting the object required error and am sure what is wrong (I know my code is a bit redundant at a certain part, I was getting an another error code about range and left some of the redundancies for now!)

   Dim y As Integer
   UB = TextBox1.Text
   y = UB + 4
   srange = "C" & 4 & ":" & "J" & y

   If ComboBox2.Text = "Demand" Then
    Worksheets("SensitivityDemand").Visible = True
    Worksheets("Welcome").Visible = False
    Worksheets("SensitivityDemand").Activate
    ActiveSheet.Range("A1").Select
    Sheets("SensitivityDemand").Select

    With ActiveSheets
        .Range("srange").Select          'Object required here 
        Application.CutCopyMode = False
    'Application.CutCopyMode = False
        Selection.Table RowInput:=Range("B3"), ColumnInput:=Range("B4")

Answer 1

Can you try this below code and let me know if there is any thing missing.

Dim y As Integer
UB = TextBox1.Text
y = UB + 4
srange = "C" & 4 & ":" & "J" & y

If ComboBox2.Text = "Demand" Then
Worksheets("SensitivityDemand").Visible = True
Worksheets("Welcome").Visible = False
Worksheets("SensitivityDemand").Activate
ActiveSheet.Range("A1").Select
'Sheets("SensitivityDemand").Select


    ActiveSheet.Range(srange).Select          'Object required here 
    Application.CutCopyMode = False
'Application.CutCopyMode = False
    Selection.Table RowInput:=Range("B3"), ColumnInput:=Range("B4")

Do no use the ActiveSheets Also srange do not put those in double qoutes as it has some values passed to it. So if you put srange in double qoutes it will treat as a string not a value.