Type Info:
Company As String
Dim CompanyName As String CompanyName = Application.User.Company MsgBox "You're working for " & CompanyName