Hi Gary,

can some help me so i can check whether the value in a cell is either an R
or an A and execute the code.


Try something like:

For Each rCell In rng.Cells
Select Case rCell.Value
Case "R", "A": MsgBox "Hi"
Case Else: MsgBox "No!"
End Select
Next rCell


---
Regards,
Norman



"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
i use the following and it works fine in my code:

Case Is = "Requests"
vtype = "R"

Case Is = "Approvals"
vtype = "A"

now i want another case to include both R and A

tried:

Case Is = "All"
vtype = "R" or "A"

didn't work, evaluates to acting on every cell value..

can some help me so i can check whether the value in a cell is either an R
or an A and execute the code.
--


Gary