title: Codehelp VBA Macro
body: <p>How can I modify this code to work with more than one column ? 
  example: </p>
  
  <pre><code>Sub demo()
    Dim RaFound As Range
    Set RaFound = Rows(1).Find("cost", , , xlPart, , xlNext)
    If Not RaFound Is Nothing Then
      RaFound.EntireColumn.NumberFormat = "#,##0.00 _€"
    End If
  End Sub
  </code></pre>
  
  <p>I want to format furthermore columns like "price" and "quantity" too.
  How should this code to modify ? </p>
  
  <p>Thank you very much who can help</p>