Select Case problem

Hi,
I am trying to make this macro work, but apparently I am nod doing it right.
Appreciate very much your help in this regard.

Sub CaseSelect_macro()

Dim ws As Worksheet
Dim pNbr As Range


pNbr = InputBox("Please type in Pod# you like to load")

Select Case pNbr


Case Is = 1

UserForm1.Show

Set ws = Worksheets("Rack")
    ws.Cells(4, 3).Value = TextBox1.Value
    ws.Cells(5, 3).Value = TextBox2.Value
    ws.Cells(6, 3).Value = TextBox3.Value
    ws.Cells(7, 3).Value = TextBox4.Value
    ws.Cells(8, 3).Value = TextBox5.Value
   Unload Me
   
Case Is = 2

UserForm2.Show

Set ws = Worksheets("Rack")
    ws.Cells(4, 6).Value = ComboBox1.Value
    ws.Cells(5, 6).Value = TextBox2.Value
    ws.Cells(6, 6).Value = TextBox3.Value
    ws.Cells(7, 6).Value = TextBox4.Value
    ws.Cells(8, 6).Value = TextBox5.Value
Unload Me
End Select

End Sub

Thank you
Saziz

Looks OK to me, how isn't it working?

PS Can you add code tags when posting code?

Hi saziz

You have pNbr defined as range

Dim pNbr As Range

Probably should be

Dim pNbr As Long

Hi saziz


If this resolves your issue please mark your Thread as SOLVED.

New quick method:
Select Thread Tools-> Mark thread as Solved. To undo, select Thread Tools-> Mark thread as Unsolved.

Or you can use this way:
How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save

If you're satisfied by any members response to your issue please use the star icon at the lower left of their post.