title: Find column starting with "Email" VBA
body: <p>I have a very limited knowledge of VBA. However, with the help of google I did the script which searches for the column called Email. Then if it finds it it looks if in this column are any commas. If yes, then it changes commas into dots. 
  However, this solution is case sensitive. If the column name is slightly different, then it doesn't work. So far I know there are 2 different options which were used in the files which this script will clean
  1. Email
  2. Email - Personal Email</p>
  
  <p>I would like to be able to make this script to work in all Email starting columns. I tried to specify this as "Email*" but it didn't work. Can someone help me? </p>
  
  <pre><code>Sub mySample()
  Sheets("Data").Activate
  Dim cell As Excel.Range
  Dim ws As Excel.Worksheet
  Dim i As Integer
  Dim j As Integer
  
  For Each ws In Excel.ThisWorkbook.Sheets
  i = ws.Cells(1, Excel.Columns.Count).End(Excel.xlToLeft).Column
  
  For j = 1 To i
      If ws.Cells(1, j).Value = "Email" Then
          Cells.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
  SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
  ReplaceFormat:=False
      End If
  Next j
  Next ws
  Sheets("Automation").Activate
  MsgBox "Removing commas in emails - Done!"
  
  End Sub
  </code></pre>