Excelマクロの初心者です。
シート名が「1月」・・・「12月」のある(変数定義された)部分を
コピー貼付けしたいのですが、
Worksheet(N & "月").Select
の行でコンパイルエラーになります。
何がいけないのでしょうか、ご存知の方教えてください。
Sub
Dim Namae As String
Dim N As Integer
For N = 1 To 12
Worksheet(N & "月").Select
Cells.Find(What:=Namae, LookIn:=xlValues, LookAt:=xlWhole).Offset(1, 0).Resize(RowSize:=405, ColumnSize:=4).Select
Selection.Copy
Windows("別ファイル").Activate
Sheets("XXX").Cells(3, 1 + N * 5).Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next
End Sub
お礼
ご回答ありがとうございました。 Nと& &と”月”の間にスペースを入れたらできました。