title: Cell in row equals a word then add 0s to every used cell below that
body: <pre><code>Sub Add_Leading_Zeros()
  
  Dim LastColumn As Integer
  LastColumn = ActiveSheet.Cells(Columns.Count, 1).End(xlUp).Column
  Dim LastRow As Integer
  LastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
  
  Dim HeaderRange As Range, HeaderCell As Range
  
  Set HeaderRange = Range("A1:A" &amp; LastColumn)
  
  For Each HeaderCell In HeaderRange
      If InStr(1, HeaderCell.Value, "Title") &gt; 0 Or InStr(1,   HeaderCell.Value, "title") &gt; 0 Then
      Dim TitleRange As Range, TitleCell As Range
      Set TitleRange = 'range of that cell's used cells in that column
  
      'Add Zeroes to front of number until total numbers = 4
  
  End Sub
  </code></pre>
  
  <p>Above is a rough outline of what I'm aiming for. I want to have my macro scan a row and if any cells in that row match a word then I want to add 0's to the front of each cell in that column until each cell has a total of 4 numbers. Essentially adding leading zeros. </p>
  
  <p>Am I on the right track? What can I do to look up solutions or learn? I would like help writing this code but I also want to understand the thought process behind the decisions so I can continue my learning.</p>