Just curious if anyone knows why this code would enter an infinite loop. When there is more than one value visible in the column it works just fine. I've added a simple conditional for now, but just curious to know if there is another way around it.
For Each cel In .Range("A2:A" & .Range("A" & .Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeVisible)
cboUnit.AddItem cel.Offset(0, 1)