Private Function Looker(ByVal lRng As String, ByVal sht As String, ByVal sRng As String, ByVal c As Integer) As String 
     
    Dim var As Variant 
     
    On Error Resume Next 
    var = Application.WorksheetFunction.VLookup(Range(lRng), Sheets(sht).Range(sRng), c, 0) 
    If IsError(var) Then 
        Looker = "" 
    Else 
        Looker = CStr(var) 
    End If 
     
End Function