Peter

You could do it with a Select Case structure:

Select Case Cells(40, 1).Value
   Case "Jack", "Paddy", "Andy", "Gary"
       Cells(41, 1) = "Jazz"
   Case Else
       Cells(41, 1) = "Blues"
End Select

If you wanted to use If you'd need to do it like:

If Cells(40,1) = "Jack" Or Cells(40,1) = "Paddy" Or ... etc

which is long-winded.

You don't want to use Xor.

Richard

Hi Peter,

You need to specify the cell again, so your code would be:

If Cells(40, 1).Value = "Jack" Or Cells(40, 1).Value = "Paddy" Or
Cells(40, 1).Value = "Andy" Or Cells(40, 1).Value ="Gary" Then
          Cells(41, 1).Value = "Jazz"
Else
          Cells(41, 1).Value = "Blues"
End If

A more elegant way and possibly an easier way is to use a select
statement, this would look like:

Select Case Cells(40,1).Value
    Case "Jack", "Paddy", "Andy", "Gary"
         Cells(41, 1).Value = "Jazz"
    Case "Peter"
         Cells(41, 1).Value = "R & B"
    Case Else
          Cells(41, 1).Value = "Blues"
End Select

So you select your case in this case Cells(40,1).value and for each
case you are just saying if it equals this then do this, very similar
to an IF statement.

I hope this helps,

James