pdfファイルを正しいアクティブなワークシートに保存するにはどうすればよいですか？

Question

一連のワークシートをExcelシートごとに名前を付けた個々のファイルに保存しようとしています。

For Each ws In ActiveWorkbook.Sheets 
    fileName = RDB_Create_PDF(Range(ws.PageSetup.PrintArea), "N:\Excel\VBA\" & CleanStr(ws.Name) & ".pdf", True, True) 
Next 

。問題は、それぞれのwsのprintareaとファイル名が変更されますが、現在のアクティブなワークシートの情報のみが保存されることです。つまり、同じワークシート情報が異なるprintarea範囲と異なるファイル名で保存されます。 wsが変更されると、どのようにアクティブなワークシートをprintareaとファイル名に合わせるのですか？ここ

Answer 1

RDB_Create_PDF(Range(ws.PageSetup.PrintArea), _ 
       "N:\Excel\VBA\" & CleanStr(ws.Name) & ".pdf", True, True) 

RangeはActiveSheetにしていないws

RDB_Create_PDF(ws.Range(ws.PageSetup.PrintArea), _ 
       "N:\Excel\VBA\" & CleanStr(ws.Name) & ".pdf", True, True) 

にデフォルト設定されますされて何をしたい、おそらくですが、ハードはRDB_Create_PDF