Excel VBA 保存時にフォルダを指定したい

ブックを保存するときに、データ内容により保存するフォルダを分ける方法を教えてください。

番号　名前　区分　科目　・・・・
101　あおた　A　　算数　・・・・
104　きだ　　B　　算数　・・・・

という一覧表から、1行ずつブックを作成して、区分ごとのフォルダに保存したいときは、どのようにすればいいのでしょうか。
Select Case Range("A", SpecRowPos)　
　　　　　　　　　　　　　※SpecRowPosは1行づつループさせる変数です
Case Is = "A"
ActiveWorkbook.SaveAs "Z:\EDMICS部品表\標準機器課\NDZ部品表\コード化部品表\機械\"A" & "\" & NewfName　　
　　　　　　　　　　　　　　　　※NewfName = Range("L37")。NewfNameは保存するファイル名の変数です
End Select

　としてみましたが、反応はありませんでした。
　
　どうぞご指導をお願いします
　

No.2 回答者： o_chi_chi 回答日時： 2009/01/07 17:23

Select Case の使い方が間違っています。

Case "A" でいいです。
またRangeの指定の仕方も間違っています。
Range("A" & SpecRowPos).Value でA列SpecRowPos行の値を取得

ただ、この場合Select Case は使用する必要はないのでは。
n-junさんの操作をマクロの記録でVBAにしてみてからループを考えるのがよいと思います。

No.1 回答者： n-jun 回答日時： 2009/01/07 09:45

よくはわかりませんが。

区分毎にブックを分けるなら、
・新規Ｂｏｏｋの作成
・新規Ｂｏｏｋに該当行をコピペ
・新規Ｂｏｏｋを任意の名前（区分名？）で保存し閉じる
を繰り返すでしょうか。

区分が複数あるなら２行目は、
・既存ブックで区分毎にデータ抽出し、新規Ｂｏｏｋに抽出行をコピペ
かな。