|
Q tal Alvarado,
Prueba con este código y me avisas:
Sub Ordenar()
'
' Ordenar Macro
' Macro grabada el 04/08/2008 por Richard Chacón
'
'
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("A3").Select
End Sub
Saludos,
RCh.
|
