title: Currency changer from a drop down
body: <p>I have a drop down list in <code>$C$4</code> where you can select your desired currency for the sheet (£, €, $) . I am looking for a piece of code that will identify that cells within the sheet are all one of the above and change them to your selected currency. </p>
  
  <p>For example, the cells currently all contain dollar signs (in accountancy formatting) and you choose € from the dropdown, now all cells that are dollars become euros.</p>
  
  <p>This code below caters for <code>A1</code>.but I need a test for all cells in the sheet containing accountancy format. (some number cells don't)</p>
  
  <pre><code>Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$B$1" Then
      Select Case Target.Value
          Case Is = "US Dollars"
             Range("A1").NumberFormat = "$#,##0.00"
  
          Case Is = "British Pounds"
              Range("A1").NumberFormat = "[$£-809]#,##0.00"
  
          Case Else
              Range("A1").NumberFormat = "general"
      End Select
  End If
  End Sub
  </code></pre>
  
  <p>Your thoughts,thanks</p>