Sheet3-DATA.bas

Private Sub Worksheet_Activate()
  Cells(2, 1).Activate
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r1 As Range

If InStr(Target.Worksheet.Name, "DATA") < 0 Then Exit Sub
If (Target.Address <> "$A$1:$N$1" And Target.Address <> "$O$3" And Target.Address <> "$O$5:$O$7") Then Exit Sub

If Target.Address = "$A$1:$N$1" Then
   Call main
ElseIf Target.Address = "$O$3" Then
   answer = MsgBox("Are you sure you want to clear the data ?", vbYesNo + vbQuestion + vbDefaultButton2, "Caution")
   Set r1 = Range(Cells(4, "A"), Cells(65356, "N"))
   If answer = vbYes Then r1.ClearContents
Else
   answer = MsgBox("Are you sure you want to clear the results ?", vbYesNo + vbQuestion + vbDefaultButton2, "Caution")
   nrows = Sheets("DATA").UsedRange.Rows.Count
   Set r1 = Range(Cells(4, "S"), Cells(nrows, "BH"))
   nrows = Sheets("ERROR").UsedRange.Rows.Count
   Set r2 = Sheets("ERROR").Range(Sheets("ERROR").Cells(4, "N"), Sheets("ERROR").Cells(nrows, "AM"))
   If answer = vbYes Then
      r1.ClearContents
      ' Setting/clearing format by program makes the total number of row impssible to decrease !
      ' r1.ClearFormats
      r2.ClearContents
   End If
End If


End Sub