kaVBA 特定シートの抽出 別ブックへのコピー

Question

VBA初心者です。
お客さんによって、100程度あるシートの中から、特定のシートのみを抽出し、
お客さんの名前と有効期間をブック名として保存したいです。

以下のようなマクロを作成しました。

問題が2点あります。
➀指定しているワークシートが正しく出力されません、一枚のみ出ます。
⓶保存時の名前について
変数でbookNameを作成しているのですが、""でくくっているため、変数として認識されません。解決方法を具体的なコードで教えて頂きたいです。

以上、散文で申し訳ございません。
どうか、宜しくお願いします。

Option Explicit

Sub シート抽出()

Dim clientName As String
Dim period As String
Dim bookName As String
Dim val As Long
Dim i As Integer
Dim count As Long
Dim copySheet As String
Dim ary() As String

clientName = Cells(13, 3).Value
period = Cells(16, 3).Value
count = Cells(19, 3)
bookName = clientName & "_" & period
val = 22
i = 0

ReDim ary(count - 1)

For i = 0 To count - 1
ary(i) = Cells(val, 3)
val = val + 1
Next

Worksheets(ary(count - 1)).Copy Before:=Worksheets(2)

ActiveWorkbook.SaveAs _
fileName:="C:\forClient\bookName", _
FileFormat:=xlOpenXMLWorkbook

End Sub

Answer 1

実際のセルのデータが提示されていないのでデバッグはしていませんが、コードを見る限りでの回答です。

①は複数のシートをまとめてコピーしたいのですから、配列の要素を指定したら意味がありません。
それと、新しいブックに保存したいのだと思いますが、「Before:=Worksheets(2)」が付いていると自ブック内でのコピーになってしまいますよ。
省略することで自動的に新規ブックにコピーされます。

Worksheets(ary()).Copy

②は既に回答は出ていますが、ダブルクォーテーションから出すだけですね。

ActiveWorkbook.SaveAs _
                    fileName:="C:\forClient\" & bookName, _
                    FileFormat:=xlOpenXMLWorkbook

ついでに、ブック名の.xlsxは省略しないほうが良いと思います。

bookName = clientName & "_" & period & ".xlsx"

Answer 2

②にのみ回答します。
bookNameを変数として認識させる記載です。

ActiveWorkbook.SaveAs _
Filename:="C:\forClient\" & bookName, _
FileFormat:=xlOpenXMLWorkbook