After reading your last post, I should probably remind you that the first 2 letters of the cell could not be "FVDM"

As for[vba]If UCase(Left(Intersect(CLL.EntireRow, Nm), 2)) = "WO" Or "TO" Or "BO" Then[/vba]As you've probably noticed you can't use that syntax. You have a couple options as to what you could do, the last (select case) would be the easiest probably:[vba]
'option 1
If UCase(Left(Intersect(CLL.EntireRow, Nm), 2)) = "WO" Or _
UCase(Left(Intersect(CLL.EntireRow, Nm), 2)) = "TO" Or _
UCase(Left(Intersect(CLL.EntireRow, Nm), 2)) = "BO" Then
'code
Else
'else code
End if

'option 2
Dim vNm As String
vNm = UCase(Left(Intersect(CLL.EntireRow, Nm), 2))
If vNm = "WO" Or vNm = "TO" Or vNm = "BO" Then
'code
Else
'else code
End If

'option 3
Select Case UCase(Left(Intersect(CLL.EntireRow, Nm), 2))
Case "WO", "TO", "BO"
'your code
Case Else
'else code
End Select[/vba]