Is it possible to get Sheet Names List in a Data Validation List in a particular cell

Is it possible to get Sheet Names List in a Data Validation List in a particular cell

Dear Forum,

I know by using the formulas we can get the Sheet Names, however I want to get the List of Sheet Names in a particular cell D1 directly when the Sheet is Activated..

I got this code while googling

http://www.ozgrid.com/forum/showthre...t=61138&page=1

Please Login or Register  to view this content.

However, this code inserts a Column before the First column when I call this Function wfor the Worksheet_Activate Event..

I want to have the same list appear as a Data Validation List in the cell D1 directly so I dont reserve the space for storing the Sheet Names anywhere..

Warm Regards
e4excel