Excel VBA セルの値をシート名にしたいのです。

質問

こんばんは
新しくシートを挿入させて、「シート２」の値のみをコピーさせたいと考えています。
その新しく挿入させたシート名を「シート１」のせるA３とA4の文字列をあわせたものにしたいのですが、どうしたらよいのでしょうか。
途中まで考えたところでいきずまってしまいました。
どうか英知をお貸しください。
宜しくお願い致します。

A3には日付、A４には名前が入力されています。

Dim sheetName As String

Worksheets("月度集計").Activate
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Name = Worksheets("Sheet1").Cells(3, 3).Value

On Error Resume Next
Worksheets(1).Name = sheetName
On Error GoTo 0
Range("f2").Select

回答No.1

n-jun · ベストアンサー

例として。
・シート２をコピペして新しいシートを作成する
・新シートの数式を値に変更する
・新シートの名前をシート１のＡ１日付（シリアル値）　_　Ｂ１の名前とする
　⇒20090627_n-jun など

Sub try()
Dim ws As Worksheet

Worksheets("Sheet2").Copy After:=Worksheets(Worksheets.Count)
Set ws = ActiveSheet

With ws.UsedRange
.Value = .Value
End With

With Worksheets("Sheet1")
ws.Name = Format(.Range("A1").Value, "yyyymmdd") & "_" & _
.Range("B1").Value
End With

Set ws = Nothing

End Sub

ご参考になれば幸いです。

お礼

おかげさまで順調に進みました。
ありがとうございました。