Hi,

The snippet of code you posted doesn't convert column D so something else
must or it may already be converted.

Mike

"Gary" wrote:

Hi, I run the following macro to convert columns E,G,H,I into Euro's but it
keeps converting coulmn D, which I don't won't to convert. Can anyone help.
Thanks

If Range("D7") = "EURO" Then
Range("E:E,G:G,H:H,I:I").Select
Selection.NumberFormat = "[$‚¬-2] #,##0.00;[Red]-[$‚¬-2] #,##0.00"
Range("A1").Select
End If