>>452
まずはAIに聞く癖を付けろ

以下の方法でActiveSheetを使わずに複数シートをPDF出力できます:

```vb
wb.Worksheets(arr).ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=pdfPath
```

`wb.Worksheets(arr)`で直接シートコレクションを指定すれば、ActiveSheetに依存せずに済みます。​​​​​​​​​​​​​​​​