=IF(OR(A2<>"",B2<>""),IF(B2=IFERROR(LOOKUP(A2,$H$3:$H$8,$H2),FALSE),"He has Access",IF(B2=IFERROR(LOOKUP(A2,$I$3:$I$8,$I$2),FALSE),"He has Access",IF(B2=IFERROR(LOOKUP(A2,$J$3:$J$8,$J$2),FALSE),"He has Access","Do not Have Access"))),"")
Try this..
While i am looking for other alternative also.
Code:=IF(OR(A2<>"",B2<>""),IF(B2=IFERROR(LOOKUP(A2,$H$3:$H$8,$H2),FALSE),"He has Access",IF(B2=IFERROR(LOOKUP(A2,$I$3:$I$8,$I$2),FALSE),"He has Access",IF(B2=IFERROR(LOOKUP(A2,$J$3:$J$8,$J$2),FALSE),"He has Access","Do not Have Access"))),"")
=IF(OR(A2="",B2=""),"",IF(IFERROR(LOOKUP(A2,$H$3:$H$8,$H$2),IFERROR(LOOKUP(A2,$I$3:$I$8,$I$2),IFERROR(LOOKUP(A2,$J$3:$J$8,$J$2),"Do not Have Access")))=B2,"He has Access","Do not Have Access"))
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column < 3 And IsEmpty(Cells(Target.Row, 3)) And Target.Cells.Count = 1 Then
Cells(Target.Row, 3).FormulaArray = "=IF(OR(ISBLANK($A" & Target.Row & ":$B" & Target.Row & _
")),"""",CHOOSE(ISNA(MATCH($A" & Target.Row & ",INDEX($H$2:$J$20,,MATCH($B" & Target.Row & _
",$H$2:$J$2,0)),0))+1,""He Has"",""Do Hot Have"")&"" Access"")"
End If
End Sub