Default value in a cell from data validation list

Hi,

I am trying to show a default value in a cell from data validation list using VBA. It works if the list is in the same sheet (Sheet1) but it doesn't if the list is in other sheet (Fruits here).

Can anyone assist me to make it work from the list in other sheet, please?

With regards,
Md Mahfuzur Rahman