Macro help please!

[eddy]

I need a macro which will format cells H21 to H34 and I35 TO I38 to either Sterling £(2 decimal Places) or Dollar $(2 decimalplaces).
To be triggered by a Question or maybe tick Boxes.

All help most appreciated.

Regards Ed

 

[VoG]

Try

Sub test()
If MsgBox("£", vbYesNo + vbQuestion) = vbYes Then
    Range("H21:H34,I35:I38").NumberFormat = "$#,##0.00"
Else
    Range("H21:H34,I35:I38").NumberFormat = "[$$-409]#,##0.00"
End If
End Sub

 

[eddy]

This works a treat many thanks for your help.
Much appreciated.
Just as a matter of interest. Could this formatting be automatically triggered by the entry in Cell E13.
e.g If Cell E13 = Andrel Electronics or Cardel Elecronics then format the ranges in $ ELSE format in £

Regards Ed

 

[VoG]

Try

Sub test()
If Range("E13").Value = "Andrel Electronics" Or Range("E13").Value = "Cardel Elecronics" Then
    Range("H21:H34,I35:I38").NumberFormat = "[$$-409]#,##0.00"
Else
    Range("H21:H34,I35:I38").NumberFormat = "$#,##0.00"
End If
End Sub