セル内の文字をシート名として使いたい。

質問

Excel2000または2002です。

セル内の文字例えばＡ１に「あいう」と入力されていたら
その「あいう」というのをシート名として使うことはできますか？
VBAでよろしくお願いします。

回答No.1

0shiete · ベストアンサー

以下のマクロをお使いください。

Sub Macro1()
ActiveSheet.Name = Range("a1")
End Sub

お礼

ありがとうございました。

回答No.2

ja7awu

例えば、全てのシートで機能するとすれば、こんな感じです。
ThisWorkbook に記述します。

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim s As Integer
Dim chk As Boolean
Set Target = Target.Resize(1.1)
If Target.Address <> "$A$1" Then Exit Sub
If Target.Value = "" Or LenB(Target.Value) > 31 Then Exit Sub
For s = 1 To Len(Target.Value)
　　If InStr(":\/?*[]", Mid(Target.Value, s, 1)) > 0 Then
　　　　MsgBox "シート名に使えない記号が含まれています。", vbQuestion
　　　　Exit Sub
　　End If
Next s
For s = 1 To Sheets.Count
　　If s <> ActiveSheet.Index And _
　　　　StrConv(Sheets(s).Name, vbLowerCase) = _
　　　　StrConv(Target.Value, vbLowerCase) Then
　　　　chk = True
　　　　Exit For
　　End If
Next s
If chk = False Then
　　ActiveSheet.Name = Target.Value
Else
　　MsgBox "そのシート名は、すでに存在します。"
End If
End Sub

お礼

できました・・
ありがとうございます。