Set format of adjacent cells based on value

Hi All,

Experienced excel user but just starting to use VBA and new to your great forum.
I've already found a lot of very helpful posts, but I've reached a sticking point.

I have list based data validation to set a cell (A1) to USD, EUR, GBP or CAD.
I need the next 2 cells (B1:C1) in the row to be set to the correct number format depending on the value selected.

If I'm going about it the right way I already have:

Please Login or Register  to view this content.

Not sure where to go next, hopefully someone can point me in the right direction.

Thanks in advance, Alex.

Thanks Kaper & Jakobshavn, that's got it, works perfectly! Starting to understand now

I have a list of items, what would it take to make this code apply to each row?
Or maybe it should be relative to the edited cell?

Kind regards,

Alex.

Jakobshavn, I just realised your code already does this.
Can't say thank you enough!

Many thanks,

Alex.