Hide/unhide sheets based on drop-down menu

Hi All
I need a simple macro to Hide and unhide the available sheets in one workbook.
in the Worksheet called Arin, 1st sheet is named as "Data sheet" ,2nd is "Apple",3rd is "Orange",4th is "Banana" (2nd,3rd and 4th sheets are.

in Data sheet "A1" I have a drop down.from that drop down if I choose Apple then the sheet called Apple should UN-hide (rest all 2 sheet Orange & Banana should be in Hidden mode)
in same way it should work for "Orange" & "Banana" sheet.
if i choose blank in A1 of Data sheet then all 3 sheet should got hide.

If anybody can help me it will be a gr8 help.

Regards
Arin

FWIW:

Please Login or Register  to view this content.