You could also use:
[VBA]
Sheets("Company data").Range("B9").Value Application.Username
[/VBA]
You could also use:
[VBA]
Sheets("Company data").Range("B9").Value Application.Username
[/VBA]
Regards,
Simon
Please read this before cross posting!
In the unlikely event you didn't get your answer here try Microsoft Office Discussion @ The Code Cage
If I have seen further it is by standing on the shoulders of giants.
Isaac Newton, Letter to Robert Hooke, February 5, 1675 English mathematician & physicist (1642 - 1727)
Posting Permissions
Reply With Quote