Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
        With Target
         If .Row <= 300 And .Column <= 300 Then
            .Value = IIf(.Value = 1, 0, 1)
            Cancel = True
         End If
      End With
      
End Sub

Sub LifeStop()
    
    Application.StatusBar = Empty
    flag = True
    
End Sub

Function putMap() As Boolean
Dim r As Long, c As Long

putMap = False
Err.Clear
On Error Resume Next
Cells(1, 1).Resize(rEnd, cEnd) = Curr
If Err.Number <> 0 Then
   MsgBox "Все умерли..."
   Application.StatusBar = Empty
   putMap = True
End If

End Function

If putMap Then Exit Sub