質問: Dir() Loop End Sub
回答: エラーで怒られている内容は、String型のMstrにTitleなんていうパラメータはないよ、ということだと思います。 文字列をセットしたいだけなら`Mstr = "07_jan" & openname`だけで大丈夫です。 ところで提示いただいたソースコードは作りかけのコードか何かでしょうか? 上記の間違いもそうですが、実際にVBAで動かすためには、上記以外の部分でもいくつか修正が必要そうです。 例えば、VBAでは行末のアンダーバー`_`はその行で終わらず次の行まで1文として認識するのですが、`filefolder = ~`の行末にある`_`が次の行の`Workbooks.Add`とつながるとは思えません。 怒られている`Mstr = ~`の直前の行のIF文にも`_`がありますが、こちらはIF文に対応するEndIfもないようなので、直後の行と連結して1行型のIf文としている正しい使い方なのかもしれません。 またCopy文の第一引数(After)はシートのインデックス番号ではなくシートそのものを指しますので、`WB.Worksheets(WB.Worksheets.Count)`とするのが正しそうです。 今回はおそらく実行前にエラー発生で止まっているのだと思いますが、その先にもいくつか試練が待ち受けていそうですね。 がんばってひとつずつ潰していってください。