SORTについて

質問

お世話になります。
下記構文でソートさせているのですが、
”台帳”シートをアクティブにしている場合はＶＢＡ実行される
のですが、別のシートをアクティブにしている場合はデバックに
なってしまいます。（実行時エラー’１００４’）
別のシートを開いていても下記のソートが実行される様にしたい
のですが、どの様したら良いかご教示頂きたく宜しくお願い申し
上げます。

　　　　　　　　記

Sub 台帳ソート()

Dim myrhg As Range
Dim myar As Variant
Dim i As Long

Set myrng = Sheets("台帳").Range("a1").CurrentRegion

myar = Array(1, 2, 3)

With myrng
For i = 0 To UBound(myar)
.Sort key1:=Cells(1, myar(i)), Order1:=xlAscending, header:=xlYes

Next
End With
Set myrng = Nothing
End Sub

回答No.1

hotosys · ベストアンサー

.Sort key1:=Cells(1, myar(i)), Order1:=xlAscending, header:=xlYes
を
.Sort key1:=Sheets("台帳").Cells(1, myar(i)), Order1:=xlAscending, header:=xlYes

お礼

ありがとうございました。
大変参考になりました。
ダブって投稿していた様で自動的に締め切りされてしまった様です。
ポイント付与される様、サポート担当に連絡致します。