VBA Customer format

[Access Beginner]

Hi,

I'm after VBA to custom format certain cells:

Positive numbers: [<999950]$0.00,"K";[<999950000]$0.00,,"M";$0.00,,,"B" and
Negative numbers: [<-999950]$-0.00,"K";[<-999950000]$-0.00,,"M";$-0.00,,,"B"

I'd also like the reference which cells get formatted in a cell. So in the "Menu" sheet in cell A139 I'd have "NewSDC" sheet cell Q58 which the above formatting would apply. My intention is to have this formatting apply to different cells on different sheets based on what is in cells A139, A140 on the "Menu" sheet etc.

Thanks in advance.

Cheers
Haydn