Visual Basic - Not allowing cell entry

Delete this, it's not doing anything:

Private Sub Worksheet_Activate()

End Sub

Change all the Exit Sub statements to

GoTo NextStep

Then add this line before my code:

 
NextStep: ' added line
    Dim r       As Range
    Dim cell    As Range