Sub test02()
Cells(1, 1) = Sheets(2).Name
Sheets(2).Name = "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa"
End Sub
を実行すると、エラー表示では、半角で31文字以内と出ますが、実際に名前の変更で手で入れるとか、下記を実行すると、全角で31文字入れられます。(エクセル2000)
Sub test03()
Sheets(2).Name = "あああああああああああああああああああああああああああああああ"
End Sub
お礼
全角33文字まで出来ました。 2文字多い(?)まっいいか(笑) ありがとうござてました。