Select Case Help

I have the code below ,but the data has changed so I need to look for "CLEAR" in that cell that will have other data now.  For example  K5 would read "Light Intensity CLEAR"  how do i adjust to look for CLEAR with other data now in the cell. Thanks
Set ws = Sheets("Sheet19")
Set ws_pic = Sheets("Pic")
   
Set cel = ws.Range("k5")
Select Case cel
Case "CLEAR"
    Set Shp = ws_pic.Shapes("Picture 30")
Case "FEW CLOUDS"
    Set Shp = ws_pic.Shapes("Picture 32")
Case "PARTLY CLOUDY"
    Set Shp = ws_pic.Shapes("Picture 28")
sandramacAsked:
Who is Participating?
 
Martin LissConnect With a Mentor Older than dirtCommented:
Set cel = ws.Range("k5")
Select Case True
Case instr(1,cel,"CLEAR") > 0
    Set Shp = ws_pic.Shapes("Picture 30")
Case instr(1,cel,"FEW CLOUDS") > 0
    Set Shp = ws_pic.Shapes("Picture 32")
Case instr(1,cel,"PARTLY CLOUDY") > 0
    Set Shp = ws_pic.Shapes("Picture 28")

Open in new window

0
 
sandramacAuthor Commented:
Thank You
0
 
Martin LissOlder than dirtCommented:
You're welcome and I'm glad I was able to help.

Marty - MVP 2009 to 2013
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.