ＶＢＡのソートで

質問

お世話になります。
初歩的な質問なのですが・・。
表のソートをしたいのですが、
表は２行目に見出しがあり３列で１００行の構成です。
下記の様な記述で表の範囲をセットするところでエラー
がかかってしまうのですが、どうしたらうまくいくでしょうか。
どなたかご教示頂きたく宜しくお願い致します。

　　　記

Sub ソート()
Dim myrhg As Range
Dim myar As Variant
Dim i As Long

Sheets("台帳").Range("A1").CurrentRegion.Select
Selection.Offset(1, 0).Select
Set myrng = Selection.Resize(Selection.Rows.Count - 1).Select
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

redfox63 · ベストアンサー

Set myrng = Selection.Resize(Selection.Rows.Count - 1).Select
の最後のSelectが不要なのでは …

私なら
Set myRng = Range("A1").CurrentRegion
if myRng.Rows.Count < 2 then
　　MsgBox "データ領域が異常です"
　　Exit Sub
end if
Set myRng = myRng.Offset( myRng.Rows.Count - 1).Offset( 1 )
といった具合にします

Select,Selectionは極力使わない方向でプログラミングすることをお勧めします

お礼

早速のご回答ありがとうございました。
参考になりました。
今後とも宜しくお願い致します。