How to make a comparison not case sensitive.

[cboz]

How do I make this not case sensitive?

Sub InsertRow()
Range("a2").Select

Do Until ActiveCell = ""

If ActiveCell <> ActiveCell.Offset(1, 0) Then
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert Shift = xlDown

Else
End If
ActiveCell.Offset(1, 0).Select
Loop
Range("A1").Activate

End Sub

 

[Molby]

Try:

Sub InsertRow()
Range("a2").Select

    Do Until ActiveCell = ""
    
        If Ucase(ActiveCell) <> Ucase(ActiveCell.Offset(1, 0)) Then
             ActiveCell.Offset(1, 0).Select
             Selection.EntireRow.Insert Shift = xlDown
            
         Else
        End If
        ActiveCell.Offset(1, 0).Select
    Loop
    Range("A1").Activate

End Sub

 

[cboz]

Thanks. That works perfectly.