For i = 1 To .Cells.Count If Len(.Cells(i).Range) = 2 Then ComboBox1.AddItem .Cells(i).RowIndex & ", " & .Cells(i).ColumnIndex End If Next i