Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveWindow.DisplayOutline = False
If Range("AG2") = 0 Then ActiveSheet.Outline.ShowLevels ColumnLevels:=1
If Range("AG2") > 0 Then ActiveSheet.Outline.ShowLevels ColumnLevels:=2
End Sub