Something like this:
Function Company_name(Company_Code As Integer)
Dim rv
rv = Application.VLookup(Company_Code, _
Workbooks("Personal.xlsb").Sheets("Sheet1").Range("A:B"), 2, False)
If IsError(rv) Then rv = "???"
Company_name = rv
End Function