Hola amigos

Tengo este problema

Tengo un rango que ordenar automáticamente. Pero no consigo que me ordene por los nombres. Me esta ordenando por la columna de las calificaciones.

Estoy colocando Sort key1 pero ordena pero la columna 3

 

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        With Range("A:C")
            .Sort key1:=.Cells(1, 3), Header:=xlYes
        End With
    End If
End Sub

 

Saludos

Calificaciones.xlsm

Buen día compañero,

 

prueba con lo siguiente

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 3 Then
        With Range("A:C")
            .Sort key1:=.Cells(1, 1), Header:=xlYes
        End With
    End If
End Sub