If condition

[vmjan02]

I don't know as how to do the if condition
As need to check every cell value in one

If ActiveSheet.Range("a2").Value <> "Skill Group Name" Then
If ActiveSheet.Range("b2").Value <> "Date" Then
If ActiveSheet.Range("C2").Value <> "Avg Speed of Answer" Then
If ActiveSheet.Range("D2").Value <> "Avg Abandon Time" Then
If ActiveSheet.Range("E2").Value <> "Handled" Then
If ActiveSheet.Range("F2").Value <> "Avg Handle Time" Then
If ActiveSheet.Range("G2").Value <> "Avg Wrap Time" Then
If ActiveSheet.Range("H2").Value <> "Abandon" Then
If ActiveSheet.Range("I2").Value <> "Longest Queued" Then
If ActiveSheet.Range("J2").Value <> "Dequeued" Then
If ActiveSheet.Range("K2").Value <> "%Handle Time" Then
If ActiveSheet.Range("L2").Value <> "%Answer" Then
If ActiveSheet.Range("M2").Value <> "Max Queued" Then
If ActiveSheet.Range("N2").Value <> "Handle Time" Then
MsgBox "Check Historical Raw file" & vbNewLine & "Header MisMatch"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

 

[Fluff]

How about

Sub vmjan()
   Dim Txt As String
   Txt = "Skill Group Name|Date|Avg Speed of Answer|Avg Abandon Time|Handled|Avg Handle Time|Avg Wrap Time|Abandon|Longest Queued|Dequeued|%Handle Time|%Answer|Max Queued|Handle Time"
   If Join(Application.Index(Range("A2:N2").Value, 1, 0), "|") <> Txt Then
      MsgBox "Check Historical Raw file" & vbNewLine & "Header MisMatch"
   End If
End Sub

 

[vmjan02]

great perfect

 

[Fluff]

You're welcome & thanks for the feedback