הנה קוד מקוצר, במקום לבדוק תא תא אנחנו מחפשים/סופרים 3 תאים המכילים ערכים בטווח.
עוד משהו חמוד שעכשיו זה חוזר להיות מוסתר עם מוחקים משהו מהתאים.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:C1")) Is Nothing Then
Sheets("Sheet2").Visible = Application.WorksheetFunction.CountA(Range("A1:C1")) = 3
If Sheets("Sheet2").Visible Then MsgBox "Sheet2 Is Now Visible."
End If
End Sub