Command Button To Change Active Cell in Proper Case

Private Sub WorkSheet_BeforeDoubleClick(ByVal Target as Range, Cancel as Boolean)
If Target.Column <> 1 Then Exit Sub
Target =Proper(Target)
End Sub

ActiveCell = Proper(ActiveCell)

ActiveCell.Value = StrConv(ActiveCell.Value, vbProperCase)

Sub MakeProper()
Dim cl as Range
For Each cl in Range("$A$2:$A" & Cells(Row.Count,"A")End(xlUp).Row)
cl =Proper(cl)
Next cl
End Sub

Sub MakeProper()
Dim cl as Range
[COLOR=red]For Each cl in Range("$A$2:$A" & Cells(Row.Count,"A")End(xlUp).Row)[/COLOR]
cl =Proper(cl)
Next cl
End Sub

Sub Macro1()

    Dim lngLastRow As Long
    Dim rngCell As Range, _
        rngData As Range
    
    lngLastRow = Cells(Rows.Count, "I").End(xlUp).Row
    Set rngData = Range("I2:I" & lngLastRow)
    
    Application.ScreenUpdating = False
    
    For Each rngCell In rngData
        rngCell.Value = StrConv(rngCell.Value, vbProperCase)
    Next rngCell
    
    Application.ScreenUpdating = True
    
End Sub

For Each cl in Range("$A$2:$A" & Cells(Rows.Count,"A")End(xlUp).Row