title: Excel VBA find address and assign to variable then reuse value
body: <p>I'm trying to find if there's a given title on a cell, pass the address of that cell to a variable and use such location to adjust the size of the column. The reason I'm doing this is because I'm writing several functions which will shift the position of the columns. I'd appreciate it if someone could take a look and tell me what I'm doing wrong.</p>
  
  <pre><code>Option Explicit
  
  Sub adjustColumns()
  
  Dim PONumberCell As String
  Dim PONumberAddress As Range
  Dim TopLabelinColumn As Range
  
  For Each TopLabelinColumn In Range("A1:Z1").Cells
      If TopLabelinColumn Like "PO_NUMBER" Then TopLabelinColumn.Value = "PO"
      PONumberCell = TopLabelinColumn.Address
  
      Set PONumberAddress = PONumberCell
      PONumberAddress.ColumnWidth = 70
  
  Next TopLabelinColumn
  
  End Sub
  </code></pre>