エクセルのセルの値をシート名にするマクロ

質問

エクセルで、例えばＢ２セルに入力された数字を使って自動でシート名にしたいのですが、（＝そのセルの値が変更されたときに　自動的に　シート名が変更されるマクロ　）どうやったらよいのか良くわかりません。また、重複するシート名があった場合にはアラートを表示させたいです。

例：

１．Ｂ２セルに１０と入力する
２．もしシート名に重複が無ければ、シート名が自動的に「１０月」になり、アクティブセルはＢ２に戻って復帰する。
３．重複がある場合は「シート名に重複があります」等のアラートを表示して終了する

多分　イベントとかいうものが絡んでくるのでしょうが、マクロは時々使うのですが、いつも記録したものを手直しする程度なので、標準モジュールの部分しか触った事がありません。
どなたか教えてください。お願いします。

回答No.1

papayuka · ベストアンサー

こんにちは。

シート名のタブを右クリックし、コードの表示で出てきたVBE画面の空白部分にコピペします。

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo ERR:
If Target.Cells(1, 1).Address = "$B$2" Then
　　 Me.Name = Target.Cells(1, 1).Text & "月"
End If
　Target.Cells(1, 1).Select
Exit Sub
ERR:
　MsgBox "その名前には変更出来ません。", vbCritical + vbOKOnly, "ERROR"
　Resume Next
End Sub

お礼

ありがとうございます。
見事　シート名が自動的に変わりました。

なんか・・感激ですねぇ。何回も繰り返してしまいました。（笑）