select from range

[Trevor3007]

good day,


For Each rng In Range("h4:h200")
Select Case rng.Value
Case "Build Completed"
With Range("A" & rng.Row).Resize(1, 22)
.Interior.ColorIndex = 4
.Font.Bold = True


the code highlighted in red is a triggered word. However, its a rather long winded way to change the word should the end user want to?
Is it possible to use a cell ref to do this?

"Build Completed" is part of drop down wihch is in the worktab name "Lists!A3" .

Many thanks in advance & KR
Trevor3007

 

[Trevor3007]

The method I'm suggesting would allow the user to alter the terms/phrases/colours etc without having to change the code.

PS I don't mean the existing code - like I said it's not possible to do what you want using a Select...Case structure.

Hiya Norie

many thanks fro your reply & help.

If you can send me what you have & I will gladly test.

KR
Trevor3007