Darrin,

For your first question I would suggest using a select case
statement,

ie
myIn = Range("A1").Value
Select Case myIn
Case "A"
MsgBox prompt:="you typed 'A'"
Case "B"
MsgBox prompt:="you typed 'B'"
Case "C"
MsgBox prompt:="you typed 'C'"
Case "D"
MsgBox prompt:="you typed 'D'"
End Select

So you'd have a case for each valid input
look in help (search select case statement)

For your second question use the & operator to join strings
ActiveWorkbook.SaveAs Filename:="C:\" & Worksheets("sheet1").Range("f9:g9").Value & ".xls"

Dan E


"Darrin Henry" wrote in message ...
Hello,
I have a few questions that are currently stumping me.

1) I have an input box. What the user puts in is declared as a variable.
Based on what they put in I want to return a msgbox. The problem is
there are 50 possible valid entries the user can input. Will multiple IF
statements work? Or another way?

2) I also I am trying to create a command button, that will save the
workbook, however, the filename is going to be the contents of a cell.
This is what I have now:

Private Sub CommandButton1_Click()

ActiveWorkbook.SaveAs Filename:="C:\"
Worksheets("sheet1").Range("f9:g9").Value ".xls"
End Sub

Any idea what is wrong? I get a runtime error 1004, on it. Thanks.

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!