巨集，不同工作表執行會產生問題，可否將工作表名稱略過執行

wanliton

Sub Macro4()
'
' Macro4 Macro
'

'
    Range("I6").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    ActiveWindow.ScrollRow = 203
    ActiveWindow.ScrollRow = 196
    ActiveWindow.ScrollRow = 174
    ActiveWindow.ScrollRow = 148
    ActiveWindow.ScrollRow = 114
    ActiveWindow.ScrollRow = 89
    ActiveWindow.ScrollRow = 60
    ActiveWindow.ScrollRow = 35
    ActiveWindow.ScrollRow = 16
    ActiveWindow.ScrollRow = 1
    Range("A1").Select
    Selection.Insert Shift:=xlDown
    Columns("F:M").Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Columns("A:E").Select
    ActiveWorkbook.Worksheets("1230").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("1230").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("1230").Sort
        .SetRange Range("A2:E449")

jarodz

把 ActiveWorkbook.Worksheets("1230") 換成 ActiveSheet 應該就可以了

wanliton

困惑已久，謝謝解謎，換成 ActiveSheet即可執行