Function VVLookup(vWhat As Variant, _
av As Variant, _
iCol As Long, _
Optional bRangeLookup As Boolean = True) As Variant
VVLookup = Application.VLookup(vWhat, av, iCol, bRangeLookup)
If IsError(VVLookup) Then Beep
End Function