一部のコード編集が解りません（複数の列を昇順に並び替える）

質問

「複数の列を行方向へ昇順に並び替える」のマクロです。
「＞」の行部分が「コンパイルエラー　　構文エラー」となります。

編集（下記）しようとしてるんですが、どうしてもうまく行きません。
ご教示くださいませ。

下記例は、3行目が項目（B3以降）、B3列以降に複数列あります。
縦に、最後行が320行以下（変動あり、空白あり）に数字データがあります。
　A　　　　B　　　　C　　　　D　　　　　E・・・　
1
2
3　　　　　赤　　　　赤　　　　赤　　　　赤　・・・
4　　　　275.9　　5651.2　　　7494.6 　 　319.2・・・
5　　　　78.7　　　764.3 　　　4188.2 　 　283.7・・・
6　　　　695　　　 935.6 　　　8718.1 　　1736.8・・・
7　　　　　　・　　　 　・　　　　　・　　　　　・
8　　　　　　・　　　 　・　　　　　・　　　　　・　
・
・
--------------
Sub Test()
Dim r As Range
With Worksheets(Worksheets.Count)
＞For Each r In .Range("B3", .Range("IV3").End(xlToLeft)
r.Offset(1, 0).Resize(320, 1).Sort key1:=r.Offset(1, 0), _
Order1:=xlAscending, Header:=xlNo, OrderCustom:=1, _
Orientation:=xlTopToBottom
Next r
End With
End Sub
---------------

回答No.1

papayuka · ベストアンサー

括弧が足りません。

お礼

修正したつもりが、保存してありませんでした。
どうも有難うございました。