[[20120128120926]]　『シートコピー、名前変更（指定したセルの値を転記』（いいだ）　ページの最後に飛ぶ

『シートコピー、名前変更（指定したセルの値を転記）』（いいだ）
Excel2003 WinXP

指定のシートをコピーして、シート名を指定のセルの値にしたいのですが、可能でしょうか？

宜しくお願い致します

 =REPLACE(CELL("filename",Sheet1!A1),1,FIND("]",CELL("filename",Sheet1!A1)),)

 で、「Sheet1」を取得できますよん。

 ※CELL関数の第2引数のセル参照を対象シートのどこかのセルに設定。

 ※Bookを1度保存する事。

 (GobGob)

 Sheets("指定のシート名").Copy after:=Sheets(Sheets.Count)
 ActiveSheet.Name = ActiveSheet.Range("a1").Value

 のこと？
 (seiya)

 有難うございますseiyaさんのでやってみました希望の通りになりました。
 ちなみにシート名を指定のセルなく、UserForm1のテキストボックスの値にすることも可能でしょうかか？度々すみません。
（いいだ）

 ActiveSheet.Range("a1").Value
 を
 UserForm1.TextBox1.Value
 にする。
 かな？
 (seiya)

 有難うございました　出来ました！
（いいだ）

コメント返信：