[[20061116151804]]　『マクロでシート名の変更をする』（すが）　ページの最後に飛ぶ

『マクロでシート名の変更をする』（すが）
お世話になります。
アクティブになっているシートの指定セル（例えばA1）にある文字を別のシート名としたいのです。
例えばシートが３つあって、１番目がアクティブ状態。そのシートのセルA1には「テスト」という文字が入力されています。マクロを使って２番目のシートのシート名を「テスト」としたいのですが、可能でしょうか？
分かる方が居たら教えてください。
よろしくお願いします。

 アクティブシートの次のシート名をA1の文字にします。他に同じシート名が
 あったり、シート名に使えない文字があったりした時は、何もせずに終了します。
（純丸）(o^-')b
　
 Sub test()
   On Error Resume Next
   With ActiveSheet
     Worksheets(.Index + 1).Name = .Range("A1").Text
   End With
 End Sub

 例:

 Sub test()
 Dim NewName As String, OldName As String, ws As Workbook
 If ActiveSheet.Next Is Nothing then Exit Sub
 NewName = ActiveSheet.Range("a1").Text
 On Error Resume Next
 Set ws = Sheets(NewName)
 If Not ws Is Nothing Then
     MsgBox "シート名の重複"
     Exit Sub
 End If
 Err.Clear
 ActiveSheet.Next.Select
 OldName = ActiveSheet.Name
 ActiveSheet.Name = NewName
 If Err > 0 Then
     MsgBox "そのシート名は使用できません"
     ActiveSheet.Name = OldName
     ExitSub
 End If
 End Sub
 (seiya)

バッチリできました。
皆さん、色々とありがとうございました！

コメント返信：

[ 一覧(最新更新順) ]

[[20061116151804]] 『マクロでシート名の変更をする』（すが） ページの最後に飛ぶ

[[20061116151804]]　『マクロでシート名の変更をする』（すが）　ページの最後に飛ぶ