Hello ultimastryder,

The quickest way is to apply the change to an entire range at once rather than to each cell individually. This macro turns off the screen updating so the user does not see the changes while they happen. The user only sees the changes after the screen updating is turned back on.

The entire range is first reset to the normal height. The range is then examined for cells with "ADDRESS" in them. When these are found, a new range, RngX, is created. The new row height is then applied to RngX.
Sub AdjustRowHeight()

  Dim Rng As Range
  Dim RngX As Range
  
    Set Rng = Range("A1:A100")
    
      Application.ScreenUpdating = False
        Rng.Rows.RowHeight = 12.75
        For Each Cell In Rng
          If Cell = "ADDRESS" Then
            If RngX Is Nothing Then Set RngX = Cell
            Set RngX = Union(RngX, Cell)
          End If
        Next Cell
        RngX.Rows.RowHeight = 25
      Application.ScreenUpdating = True
                    
End Sub