シート名をセルの値に変更する方法

Question

シートの名前を、A1のものにしたいと考えています。

Sub シート名変更()
Dim mysheet As Worksheet
For Each mysheet In Worksheets
mysheet.Name = mysheet.Range("A1").Value
Next
End Sub

上記でA1に入力した文字列がシート名に変更になることはわかりました。

教えていただきたいのは、A1に計算式が入っている場合です。
実際には別シートのセルを参照するようになっています（=Sheet1A1)。
A1が文字列ではなく式が入っている場合に、A1の結果をシート名にすることはできないのでしょうか？

ご教授のほど、よろしくお願いいたします。

Comments

[meg_]

そのまま実行したらどうなりましたか？

[o-k]

計算式に記号が入っていたせいか、実行できませんでした。

[meg_]

計算式とは質問の例（=Sheet1!A1）とは別ですか？　これであれば問題なく出来ます。
また、「実行できませんでした。」とは具体的には何が起こったのですか？ エラーですか？？

[o-k]

'Name'メソッドは失敗しました:'_Worksheet'オブジェクト
と表示されます

Answer 1

そもそもシート名には指定できない文字列が存在します。

式の結果、これら文字列が含まれる場合はシート名が変更できません。
※手作業でも同じく変更できません。
使用不可の文字列を削除すれば変更は可能です。

Comments

[o-k]

ありがとうございます。
ということは計算式の結果をシート名にすることはできないということでしょうか？

[radames1000]

計算式の結果に使用不可の文字列がある場合はできません。
計算式の結果に使用不可の文字列がなければできます。

[o-k]

ありがとうございます。
計算式の結果を直したらできました。