シートにマクロ記述があるとシートに貼付ができない

質問

Windows7　Ｅxcel2007を使ってマクロ作成中の初心者です。
他の方がwinXP使用してるので、受け渡しのため、互換性のある Excel97-2007で保存・マクロ作成しています。

１）エクセルの新規ブックで、sheet1のセルＡ1をコピーし、sheet2のＡ1に貼り付けます。
当然のことながら、正常に貼り付けできます。
貼り付けが完了してもなお、「コピー先を選択しＥｎｔｅｒキーを押すか、
貼り付けを選択します。」が表示され続けています。

２）ところがsheet1、sheet2にコードを書くと、（たとえば下のコード）
sheet1のセルＡ1を右クリックしコピーを選択すると「コピー先を選択しＥｎｔｅｒキーを押すか、
貼り付けを選択します。」が表示されます。そしてsheet2に「貼り付け」をしようsheet2の
シート見出しを選んだ瞬間、「コピー先を選択しＥｎｔｅｒキーを押すか、
貼り付けを選択します。」の表示が消えてしまい、「貼り付け」ができません。

３）他のシートに貼り付けができないので、シートにマクロがかけないので、困っています。どうしたらいいかお助けください。

Private Sub Worksheet_Activate()
ActiveWindow.DisplayHorizontalScrollBar = False '水平
End Sub

回答No.2

masa_019 · ベストアンサー

こんばんは。

こんな風にすれば、回避できますね。

Private Sub Worksheet_Activate()

If Application.CutCopyMode Then Exit Sub '←この1行を加える

ActiveWindow.DisplayHorizontalScrollBar = False '水平

End Sub

お礼

特殊な例だから回答がこないのだとあきらめていたのですが念のため今日会社に行く前に貴方様のご教示に実験したところ完璧にできました。ああありがとうございます。感涙ですううううう！

回答No.1

LHS07

This Workbookにかけないですか。

補足

ご回答ありがとうございます。今やってみましたがやはり貼り付けできません。途方にくれています。