What is wrong with my select case statement

[dpaton05]

This is the start of my select case statement and it has an error and I can't figure out why, can someone help me please?

Dim printWorksheet As Worksheet, logoShape As Shape, tempImageFile As String
Dim city As String
        Set city = ThisWorkbook.Worksheets("Start_here").Range("H9").Value
        Select Case city
            case is "town1"

 

[dpaton05]

Never mind, I got it working.

 

[Kenneth Hobson]

Set is for objects. A string is not an object.

Dim city As String
        '[COLOR="#FF0000"]Set[/COLOR] city = ThisWorkbook.Worksheets("Start_here").Range("H9").Value
        Select Case  ThisWorkbook.Worksheets("Start_here").Range("H9").Value