| Home |
| Search |
| Today's Posts |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Case Select
Hi, try this:
For Each cell In Me.Range("z5:z36") Select Case LCase(cell.Value) Case "cat": ColorCell cell, 39 Case "dog": ColorCell cell, 35 Case "fish": ColorCell cell, 34 Case "horse": ColorCell cell, 36 Case "": ColorCell cell, 0 Case Else: ColorCell cell, -4142 End Select Next HTH--Lonnie M. |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Select Case ignored | Excel Worksheet Functions | |||
| Case Select | Excel Worksheet Functions | |||
| Case without Select Case error problem | Excel Discussion (Misc queries) | |||
| Need help on Select Case | Excel Worksheet Functions | |||
| select case help please | Excel Programming | |||
Threaded Mode
