Selection.Sort....

Hola a todos.

Tengo el siguiente codigo:

Sheets("region").Select
Sheets("region").Range("D25:J34").Select
Selection.Sort Key1:=Range("E26"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

Lo que deberia hacer, es ordenala. Pero cuando llega a
Selection.Sort.. Me da error, "Error definido por la aplicacion o el
objeto".

Que me falta? que me sobra???.
Les comento que este codigo esta dentro de "Microsoft Excel Objetos", lo
necesito ahi, porque anteriormente estoy copiando una solapa de un libro.

Gracias.