title: Search for specific name header column
body: <p>How can I Search for specific name header column "DATA/HORA" and adapt to macro below?</p>
  
  <pre><code>Sub Data()
  
  Dim cell As Range
  Dim lastRow As Long
  
  lastRow = Range("A" &amp; Rows.Count).End(xlUp).Row
  
  For Each cell In Range("A1:A" &amp; lastRow)
   If InStr(cell.Value, "-") &lt;&gt; 0 Then
      cell.Value = RegexReplace(cell.Value, _
      "(\d{4})\-(\d{2})\-(\d{2})", "$3/$2/$1")
  End If
  
   cell.NumberFormat = "dd/mm/yyyy;@"
  Next
  
  End Sub
  
  Function RegexReplace
  ------    
  End Function
  </code></pre>