Apply 2 options for the code to look at

[ipbr21054]

Hi,

I am using the working code shown below & the line of code in Red is where i need to edit.
I also need to include KDX 2 TOOL but how do i write it please

Private Sub Kdx2_Click()
    
    If ActiveCell.Column <> 1 Then
      MsgBox "YOU MUST SELECT A CUSTOMER IN COLUMN A FIRST", vbCritical, "CUSTOMER WAS NOT SELECTED"
    Exit Sub
    End If
    
    If ActiveCell.Offset(0, 8).Value = "KDX 2 DEVICE " Then
    Call KDX2TRANSFER
    Else
    MsgBox "KDX 2 WAS NOT USED ON THIS VEHICLE", vbCritical, "KDX 2 WAS NOT USED"
    End If
   
End Sub

 

[Joe4]

Simply add an "OR" clause, i.e.

    If (ActiveCell.Offset(0, 8).Value = "KDX 2 DEVICE ") Or (ActiveCell.Offset(0, 8).Value = "KDX 2 TOOL") Then

 

[rlv01]

Another approach would be to use the Select Case statement.

Private Sub Kdx2_Click()
    
    If ActiveCell.Column <> 1 Then
        MsgBox "YOU MUST SELECT A CUSTOMER IN COLUMN A FIRST", vbCritical, "CUSTOMER WAS NOT SELECTED"
        Exit Sub
    End If
    
    'If ActiveCell.Offset(0, 8).Value = "KDX 2 DEVICE " Then
    '    Call KDX2TRANSFER
    'Else
    '    MsgBox "KDX 2 WAS NOT USED ON THIS VEHICLE", vbCritical, "KDX 2 WAS NOT USED"
    'End If
   
    Select Case Trim(ActiveCell.Offset(0, 8).Value)
    Case "KDX 2 DEVICE", "KDX 2 TOOL"
        Call KDX2TRANSFER
    Case Else
        MsgBox "KDX 2 WAS NOT USED ON THIS VEHICLE", vbCritical, "KDX 2 WAS NOT USED"
    End Select
End Sub

 

[ipbr21054]

Now done using Joe4 advice.
I see you also added ( )

Thanks

 

[Joe4]

I see you also added ( )

They really aren't necessary, but I like to add them to clarify any confusion over what the order of events is.
It just erases any doubt anyone may have about it.