VBAショートカットキー セルの結合・解除
VBAでエクセルで使用するショートカットキーを作成しております。
エクセルは2007を使用しています。
Ctrl+Shift+F で
選択したセルが、結合していたら解除、解除されていたら結合 という命令を作成しました。（ネットから拝借ですが、、、）
選択した範囲のセルに何も書かれていないときは良いのですが、何かが入力された範囲を
選択して、実行するとエクセル上で
【選択範囲には複数のデータ値があります。1つのセルとして結合すると、選択したセル範囲になるもっとも左上端になるデータのみが保持されます（空白セルは無視されます）】
という警告（？）ウインドウが表示されます。
その後「 OK 」 を押すと問題ないのですが「 キャンセル 」を選択すると
VBAで ”実行時エラー’1004” RangeクラスのMergeCells プロパティを設定できません。 と
エラーになってしまいます。
「キャンセル」を選択した際に、エラーにならないようにするには、どのように修正すれば良いか
教えて頂きたいです。
以下、作成したマクロです。
デバッグを確認すると[ .MergeCells = True ]の部分が黄色くなります。
----------------------------------------------------------------------
Sub auto_open()
Application.OnKey "+^F", "セルの結合解除"
End Sub
’－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub セルの結合解除()
With Selection
If .MergeCells = False Then
.MergeCells = True
.HorizontalAlignment = xlCenter
Else
.MergeCells = False
End If
End With
End Sub
----------------------------------------------------------------------
何卒宜しくお願い致します。
補足
回答ありがとうございます。でも、「セルを結合する」も「シートの保護の解除」とゆう項目も選択できない状況です。これって、何なんですかね？