Public Function MatchAll(ByRef Target As Range, ByRef Values As Range) As Boolean
Dim cell As Range
MatchAll = True
For Each cell In Values.Cells
If IsError(Application.Match(cell.Value, Target, 0)) Then
MatchAll = False
Exit Function
End If
Next cell
End Function