Hücre Gizleme Gösterme

[askm]

Kolay gelsin.
Aşağıdaki kodlar ile Onay kutusu tikli olan hücreler haricindeki hücreler gizlenmektedir. 2 tane daha onay kutusu ekledim onları gizlemiyor. O Sütununa kadar işlem yapıyordu. Şimdi Q ya kadar işlem yapıyor. Yani 2 sütun daha ekledim. Nasıl düzeltebilirim.
Teşekkürler.
Private Sub ToggleButton1_Click()
Application.ScreenUpdating = False
If ToggleButton1 = True Then
For Each Nesne In ActiveSheet.Shapes
i = i + 1
If Cells("1", i).Text = "YANLIŞ" And Nesne.Type = 8 Then
Columns(i).Hidden = True
Nesne.Visible = False
End If
Next
ToggleButton1.Caption = "GÖSTER"
Else
Columns("B:Q").EntireColumn.Hidden = False
For Each Nesne In ActiveSheet.Shapes
Nesne.Visible = True
Next
ToggleButton1.Caption = "GİZLE"
End If
Application.ScreenUpdating = True
End Sub