Type mismatch for Userform

[Aland2929]

I select a month from a drop-down list and only want to select "August" or "September". When I run this code, I get a "Compile error" - Type mismatch? The problem seems to be "August"?
Thanks in advance

Private Sub OKButton_Click()
Dim MonthDB As Range
    If Range("MonthDB") Is "August" Then
        Sheets("PrincipalsAugust2011").Activate
        Range("A2").Select
        Exit Sub
    ElseIf Range("MonthDB") Is "September" Then
        Sheets("PrincipalsSeptember2011").Activate
        Range("A2").Select
        Exit Sub
    Else
        Unload Me
    End If
End Sub

[StephenR]

Does it work with this?

If Range("MonthDB") = "August"

[GeneralDisarray]

if MonthDB is typed as range (first of all you must SET what this variable is)

Just use:

 IF monthDB.value ="August" then

for your condition

If you are passing MonthDB into range("monthDB") then monthDB should be a string representing an address...like "$A$1"...by declaring it a Range you don't have to declare the range on-the-fly

[Aland2929]

Thank you Stephen. That works perfectly.

[GeneralDisarray]

Remember, the range variables need to be "set"

 set monthDB = Worksheet("appropriate_sheet_name_here").RANGE("Appropriate address here")

[Aland2929]

Can you explain why I need to use SET in this case? Would I use:

set monthDB = Worksheet("PrincipalsAugust2011").RANGE("August")
set monthDB = Worksheet("PrincipalsSeptember2011").RANGE("September")

Thank You.

[GeneralDisarray]

well, is "august" a named range, or the value of a specific cell?

I could be wrong on this, but everytime I've ever called a range method on a variable, without first setting the variable i receive a "object variable not set" error when i try to run the sub.

Are you still having trouble with your code or were you just asking a general question?

[Aland2929]

The code works fine without the SET code. The months are selected from a drop-down list and the selection is stored in the range "MonthDB".
Thanks.

[royUK]

You don't need to select or activate the sheet or range. I suggest that you explain exactly what you need upload an example workbook.

What kind of "drop down list" are you using?

[Aland2929]

Thanks Roy. I have attached a sample file.

[GeneralDisarray]

Ok, for named ranges...little easier (remember to use brackets around a named range's name in the code)

EDIT ::
(SEE ATTACHMENT ) Tested it out with a quick step through. Key is you can just access the named range, didn't need to even define a variable to pull it off. Also, did you only want 2 possible months or a list of 12? Either way you set that up with "data validations"

(If i understand you, you want to pull up the sheet if it's there and that's it)

Option Explicit

Sub ShowMonths()

On Error GoTo x:
ThisWorkbook.Worksheets([MonthDB].Value).Activate
Exit Sub

x:
MsgBox ("Sheet " & [MonthDB].Value & " not found.")

End Sub

[GeneralDisarray]

good...no good? dag yo, nBvc is right

thank you's are nice to get sometimes....

[Aland2929]

Thank you, I do appreciate your response. The delay was due to time difference.