スキルアップ・問題解決なら、モーグにおまかせ！

お世話になっております。
属性「.xls」時代に下記Codeを「ThisWorkbook」に記述していました。
やりたい事は全てのシートでセルに何も入力されていない場合、
任意のシートでセルに何かを入力すると見出しの色を無し→赤に変更ていました。
 
属性「.xlsm」で同じCodeを書きますと、何も動かないようです。
 
改善点をご教示頂ければ幸いです。
宜しくお願い申し上げます。
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Application.CountA(Sh.Cells) > 259 Then
        Sh.Tab.ColorIndex = 3
    Else
        Sh.Tab.ColorIndex = xlNone
    End If
End Sub

259
って何？

>何も動かないようです
 
ステップ実行して動きを確認してみましょう

横から失礼します。
ご指摘に沿って是非確認して頂きたいですが、
> If Application.CountA(Sh.Cells) > 259 Then
そのシートの非空白セルの数が259個を超えていたら、
という意味ですが、そういう条件を満たしているんですか？
まっさらなシートの一つのセルに入力しただけでは、それは満たされないですよね。
ご存じであれば失礼。
それはもちろん満たしています、というなら、別の理由でしょう。
EnableEventsが一時的にFalseになっているとか、
マクロ機能そのものが無効になっているとか。

WinArrow様・simple様
 
お世話になっております。
ご教示、ありがとうございました。
 
申し訳ありませんでした。「まっさらな」とは誤りで、既に「259」のセルに
デフォルトで入っておりました。
もし「「まっさらな」であれば「0」でした。
勘違いをして皆様に質問し済みませんでした。
おかげ様で解決に至りました。
ありがとうございました。
 
TTOS