Intersect Help please

[slimimi]

Hello. Please can someone help me to change this code.
At the moment it intersects in 1 Column.

However, i would like to look at Column B & Column D and if JPY if in either of these columns then apply it. I tried doing the following but it didnt work.

Set myRange = Intersect(Target, Columns("B:B" &"D:D"))
If Not myRange Is Nothing Then
Application.ScreenUpdating = False
For Each c In myRange
If InStr(UCase(c.Value), "JPY") Then
myFormat = "0.00"
Else
myFormat = "0.0000"
End If

 

[RoryA]

Set myRange = Intersect(Target, Range("B:B,D:D"))

should work.