Ayuda en macro...

Para los que expertos en macros..o no tan expertos.. pero que le entiendan a macros.. por que yo no se mucho.. jeje

ActiveWorkbook.Worksheets("Hoja3").Sort.SortFields.Clear

Que quiere decir esa instruccion?
Es que cree una macro.. sencilla para unos datos, pero me marca error en esa linea.

Trabajo bien en una hoja de un libro, pero cuando quiero pasar a otra hoja del mismo libro y querer uilizar esa macro que hice, me marca error.

De antemano.. muchas gracias!!

el error es porque la instrucción hace referencia a la Hoja3, y cuando cambias de hoja marca error, se podría quitar cambiando "Hoja3" por ActiveSheet.Name

Prueba y comenta

QUe tal By Paco..

Hice lo que me sugirio.. pero mi sigue marcando en el mismo renglon..

Sub Macro3()
'
' Macro3 Macro
'
' Acceso directo: CTRL+w
'
Columns("C:C").Select
Application.CutCopyMode = False
Selection.Cut Destination:=Columns("H:H")
Range("A6:H482").Select
ActiveWindow.ScrollRow = 470
ActiveWindow.ScrollRow = 467
ActiveWindow.ScrollRow = 463
ActiveWindow.ScrollRow = 456
ActiveWindow.ScrollRow = 450
ActiveWindow.ScrollRow = 442
ActiveWindow.ScrollRow = 429
ActiveWindow.ScrollRow = 418
ActiveWindow.ScrollRow = 412
ActiveWindow.ScrollRow = 403
ActiveWindow.ScrollRow = 396
ActiveWindow.ScrollRow = 386
ActiveWindow.ScrollRow = 382
ActiveWindow.ScrollRow = 372
ActiveWindow.ScrollRow = 367
ActiveWindow.ScrollRow = 362
ActiveWindow.ScrollRow = 355
ActiveWindow.ScrollRow = 350
ActiveWindow.ScrollRow = 347
ActiveWindow.ScrollRow = 343
ActiveWindow.ScrollRow = 338
ActiveWindow.ScrollRow = 334
ActiveWindow.ScrollRow = 330
ActiveWindow.ScrollRow = 326
ActiveWindow.ScrollRow = 318
ActiveWindow.ScrollRow = 314
ActiveWindow.ScrollRow = 310
ActiveWindow.ScrollRow = 307
ActiveWindow.ScrollRow = 304
ActiveWindow.ScrollRow = 300
ActiveWindow.ScrollRow = 290
ActiveWindow.ScrollRow = 283
ActiveWindow.ScrollRow = 271
ActiveWindow.ScrollRow = 265
ActiveWindow.ScrollRow = 253
ActiveWindow.ScrollRow = 247
ActiveWindow.ScrollRow = 231
ActiveWindow.ScrollRow = 214
ActiveWindow.ScrollRow = 199
ActiveWindow.ScrollRow = 187
ActiveWindow.ScrollRow = 182
ActiveWindow.ScrollRow = 170
ActiveWindow.ScrollRow = 157
ActiveWindow.ScrollRow = 152
ActiveWindow.ScrollRow = 139
ActiveWindow.ScrollRow = 135
ActiveWindow.ScrollRow = 128
ActiveWindow.ScrollRow = 118
ActiveWindow.ScrollRow = 113
ActiveWindow.ScrollRow = 102
ActiveWindow.ScrollRow = 97
ActiveWindow.ScrollRow = 94
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 83
ActiveWindow.ScrollRow = 79
ActiveWindow.ScrollRow = 76
ActiveWindow.ScrollRow = 71
ActiveWindow.ScrollRow = 68
ActiveWindow.ScrollRow = 63
ActiveWindow.ScrollRow = 53
ActiveWindow.ScrollRow = 50
ActiveWindow.ScrollRow = 43
ActiveWindow.ScrollRow = 41
ActiveWindow.ScrollRow = 38
ActiveWindow.ScrollRow = 36
ActiveWindow.ScrollRow = 34
ActiveWindow.ScrollRow = 32
ActiveWindow.ScrollRow = 29
ActiveWindow.ScrollRow = 26
ActiveWindow.ScrollRow = 25
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 21
ActiveWindow.ScrollRow = 19
ActiveWindow.ScrollRow = 16
ActiveWindow.ScrollRow = 13
ActiveWindow.ScrollRow = 11
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 9
ActiveWindow.ScrollRow = 7
ActiveWindow.ScrollRow = 6
ActiveWindow.ScrollRow = 3
ActiveWindow.ScrollRow = 2
ActiveWindow.ScrollRow = 1
ActiveWorkbook.Worksheets("ActiveSheet.Name").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("ActiveSheet.Name").Sort.SortFields.Add Key:=Range("A6"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("ActiveSheet.Name").Sort
.SetRange Range("A6:H482")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End sub

Asi es como estan las instrucciones.., por si ayuda en algo

Gracias...y disculpas por las molestias.

Se me olvido decir que (ActiveSheet.Name) va sin las comillas " ", también puedes quitar todas las lineas de ActiveWindow.ScrollRow =...., esto te ahorrará memoria y aumentara la velocidad de la macro