[[20161226174017]]　『新しくシートを作り名前をつける』（真由美）　ページの最後に飛ぶ

『新しくシートを作り名前をつける』（真由美）

お世話になっております
教えて下さい
お願いいたします
新しくシートを作り名前をセル値を使いたいのですが
セルの中身がYYYY/MM/DDのためなのか上手くいきません
/を除いたシート名でも構わないのですが
良い方法あいますか
ちなみに下記の様に作ってみました

Dim Target

    Sheets("報告書").Select
    Cells.Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste

    ActiveSheet.Name = Range("D6").Value

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

追加分のシート名（日付型）を記述してあるシートモジュールにマクロを書いてある、という事で良いですか？

    Sheets("報告書").Copy After:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = Format(Me.Range("D6").Value, "YYYYMMDD")
（???） 2016/12/26(月) 17:55

???様

本当に助かりました
有難う御座いました
（真由美） 2016/12/26(月) 18:33

コメント返信：