マクロでExcelのコメント変更の範囲が選択されていない

Question

Excel 2010用のマクロを作成しようとしています。これは、セルまたはマージされたセルの範囲をユーザーが選択してコメントを展開してパターンを追加します。

Sub commentstripe() 
' 
' commentstripe Macro 
' 
' 
    Dim myRange As Range 
    Set myRange = Range(Selection.Address) 
    myRange.Comment.Shape.TextFrame.Characters.Font.Bold = False 
    With myRange.Interior 
     .Pattern = xlLightUp 
     .PatternColorIndex = xlAutomatic 
     .PatternTintAndShade = 0 
    End With 
    ActiveWorkbook.Save 
End Sub 

それはmyRange.commentラインにぶら下がっているように見えるが、私は理由を把握するように見えることはできません。ショートカットCtrl + Shift + Aから実行しています。アドバイスをいただければ幸いです。

よろしく、 サンディ

Answer 1

それはセルにはコメントがない場合、それはエラーをスローするという事実を除いて...ハングアップする理由私は表示されません。 また、これが新しいブックであり、保存するだけでは、これがマクロ対応のExcelファイルではなく、Excelファイルであることを示す警告が表示されます。ちょうどあなたが知るために。

私はセーブラインをコメントして、すべてが完全に機能しました。

EDIT：これは（ポップアップボックスに）それは、Visual Basic Editorでやった

Sub commentstripe() 

Dim myRange As Range 
Set myRange = Selection 
myRange.Cells(1, 1).Comment.Shape.TextFrame.Characters.Font.Bold = False 
With myRange.Interior 
    .Pattern = xlLightUp 
    .PatternColorIndex = xlAutomatic 
    .PatternTintAndShade = 0 
End With 
ActiveWorkbook.Save 
End Sub