Thank you very much p45cal, its working fine, one last request, can I have below code to show the mailbox name from where its been retreived

I am getting an run time error 438
Object doesnot support this property or method

[VBA]
Cells(r, "A") = olNS.FoldersName
[/VBA]

it should show mail box name "Mailbox - Satish Gubbi"

Kindly help in this regard