Sub picksheet()
n = Application.InputBox(prompt:="select a sheet:", Type:=1)
Sheets(n).Activate
End Sub
--
Gary''s Student - gsnu2007c


"okrob" wrote:

A little refresher please...
I'm trying to make the user choose which sheet to enter data on by
selecting a 1 2 or 3.
In case someone renames or reorders the sheets, I don't want to refer
to those things. I do want to refer to the sheet in the format
Sheet4, Sheet7, or Sheet8.
Most of what I have here works fine until you get to the variable
assignment at the end.
Thanks in advance for what I'm sure will be a small syntax error on my
part.
Rob

Sub whichsheet()
Dim ws As Worksheet
Dim x As Integer, y As Integer
x = InputBox("1 2 or 3")
Select Case x
Case 1
y = 4
Case 2
y = 7
Case 3
y = 8
Case Else
End Select
ws = Sheet y '<--Here is where I get lost... How do I make the "y"
reference Sheet4?
End Sub