In sheet 'SPD' when I click on a cell that has a formula and change selection, the sheet 'ADMIN' is immediately activated.
Can you help me check if there is something in the sheet code that is making it do it.

Option Explicit
Dim previousValue As Variant
Dim doubleClickFlag As Boolean

Private Sub Worksheet_Activate()
Application.EnableEvents = False
If ActiveSheet.Range("J30").Value <> "" Then
MsgBox "BACKUP OF PAGE REQUIRED", vbInformation, "BACKUP"
End If
    Call Module30.CalculateSheet
    Call Module28.TidyColumnK
    Call Module29.BuildColumnK
    ActiveSheet.Range("N1:O20").Calculate
    Call Module21.FindEarliestServiceDate
    Call Module20.RowRequest
    Call Module23.SortTasksByDate
    ColumnList Me.Range("B1")
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
Sheets("Start Page").Activate
    End If
If Target.Address = "$J$1" Then
Call Module43.PageHelp
    End If
If Target.Address = "$A$2" Then
Call Module1.GoBack
    End If
If Target.Address = "$B$2" Then
Call Module35.DisplayServices
    End If
If Target.Address = "$C$2" Then
Call Module42.ConfirmationMessage
    End If
If Target.Address = "$E$2" Then
Sheets("Permit Data").Activate
Sheets("Permit Data").Range("I2").Value = Target.Value
    End If
If Target.Address = "$F$2" Then
Sheets("Permit DBS").Activate
Sheets("Permit DBS").Range("Q2").Value = Target.Offset(-1, 4).Value
    End If
If Target.Address = "$G$2" Then
Sheets("Permit DBS").Activate
Sheets("Permit DBS").Range("Q2").Value = Target.Offset(-1, 3).Value
    End If
If Target.Address = "$H$2" Then
Sheets("Work Permit").Activate
Sheets("Work Permit").Range("H10").Value = Target.Value
    End If
If Target.Address = "$I$2" Then
Sheets("Providers").Activate
Sheets("Providers").Range("E2").Value = Target.Value
    End If
If Target.Address = "$J$2" Then
Sheets("PREQUEST").Activate
    End If
If Target.Address = "$A$3" Then
    Call Module30.CalculateSheet
    Call Module28.TidyColumnK
    Call Module29.BuildColumnK
    Call Module21.FindEarliestServiceDate
    Call Module20.RowRequest
    Call Module23.SortTasksByDate
    ColumnList Me.Range("B1")
    End If
If Target.Address = "$B$3" Then
Sheets("Job Request").Activate
    End If
If Target.Address = "$C$3" Then
Sheets("Reminders").Activate
    End If
If Target.Address = "$D$3" Then
Sheets("Events").Activate
    End If
If Target.Address = "$J$3" Then
UserForm2.Show
'Call HistoryToNotepad
    End If
If Target.Address = "$A$4" Then
Call Module3.FileList
    End If
If Target.Address = "$B$4" Then
Call Module26.TaskIssues
    End If
If Target.Address = "$F$4" Then
Call Module27.TaskLocations
    End If
If Target.Address = "$G$4" Then
Call Module36.DisplaySSDays
    End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim newRow As Long
Dim result As VbMsgBoxResult
    If Target.CountLarge > 1 Then Exit Sub
        If Not Intersect(Target, Range("I6:I505")) Is Nothing Then ' COLUMN I FOR TASK COMPLETED DATE
            If doubleClickFlag = False Then
    If IsDate(Target.Value) And Target.Offset(0, -7).Value <> "Service" Then
        ActiveSheet.Range("B" & Target.Row).Select
        MsgBox "Please change the Issue description (column B) as required.", vbInformation, "ISSUE"
Exit Sub
    End If
End If
    If IsDate(Target.Value) And Target.Offset(0, -7).Value = "Service" Then
        If doubleClickFlag = False Then
        result = MsgBox("IS THIS SERVICE COMPLETED?" & vbCrLf & vbCrLf & _
        "Have you entered the completed Date" & vbCrLf & vbCrLf & _
        "using the format dd/mm/yyyy" & vbCrLf & vbCrLf & _
        "Click YES to proceed - NO to Cancel", vbYesNo + vbQuestion)
    If result = vbNo Then
Target.Value = ""
Else
        ActiveSheet.Range("G" & Target.Row).Select
        MsgBox "Thank you for entering Completed Service Date" & vbCrLf & vbCrLf & _
        "Please proceed to enter Service Schedule as number of days", vbInformation, "DATE"
Exit Sub
            End If
        End If
    End If
End If
    If Not Intersect(Target, Range("G6:G505")) Is Nothing Then ' COLUMN G FOR SERVICE SCHEDULE DAYS
    Application.EnableEvents = True
    If Target.Offset(0, -5).Value <> "Service" And Target.Offset(0, -5).Value <> "Serviced" Then
Exit Sub
End If
    If Not doubleClickFlag And Target.Value <> "" And Not IsDate(Target.Offset(0, 2).Value) Then
        MsgBox "Date Completed not present", vbCritical, "DATE"
        Application.EnableEvents = False
        Target.Value = ""
        Application.EnableEvents = True
    ElseIf Target.Value <> "" And Target.Offset(0, -5).Value = "Service" And IsDate(Target.Offset(0, 2).Value) Then
        MsgBox "A New Service row will now be created", vbInformation, "NEW SERVICE"
        Target.Offset(0, -5).Value = "Serviced"
        Target.Offset(0, 1).Value = ""
        newRow = Cells(Rows.count, "B").End(xlUp).Row + 1
    With ActiveSheet
        .Range("B" & newRow).Value = "Service"
        .Range("C" & newRow).Value = Target.Offset(0, 2).Value
        .Range("F" & newRow).Value = Target.Offset(0, -1).Value
        .Range("J" & newRow).Value = Target.Offset(0, 3).Value
        .Range("L" & newRow).Value = Target.Offset(0, 5).Value
        .Range("H" & newRow).Value = Target.Offset(0, 2).Value + Target.Value
        End With
    End If
End If
Dim wsa As Worksheet
Set wsa = ThisWorkbook.Sheets("ADMIN")
wsa.Activate
If Target.Column = 5 Then
ColumnList Target
    End If
doubleClickFlag = False
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Application.EnableEvents = False
Dim doubleClickedCell As Range
Set doubleClickedCell = Target.Cells(1)
If Target.CountLarge > 1 Then Exit Sub
    If Target.Address = "$H$4" Then
        doubleClickFlag = True
        Sheets("ADMIN").Activate
    End If
If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Me.Range("C5:C105")) Is Nothing Then
    Set lastTarget = Target
    doubleClickFlag = True
        TaskReminder Target
    End If
If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Me.Range("D5:D105")) Is Nothing Then
    doubleClickFlag = True
        TaskDetails Target
    End If
If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Me.Range("G5:G105")) Is Nothing Then
    Set lastTarget = Target
    doubleClickFlag = True
        ServiceReminder Target
    End If
If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Me.Range("I5:I105")) Is Nothing Then
    Set lastTarget = Target
    doubleClickFlag = True
    'previousValue = doubleClickedCell.Value
        Thankyou Target
    End If
If Target.CountLarge > 1 Then Exit Sub
    If Not Intersect(Target, Me.Range("J5:J100")) Is Nothing Then
        Dim cell As Range
        For Each cell In Target
        Cancel = True
        Dim currentValue As String
        currentValue = Me.Cells(cell.Row, "L").Value
        UserForm1.TextBox1.text = currentValue
        UserForm1.Show vbModeless
        Next cell
    End If
Application.EnableEvents = True
End Sub

Private Sub TaskReminder(ByVal Target As Range)
    If Target.Offset(0, -1).Value = "Service" Or Target.Offset(0, -1).Value = "Serviced" Then
        MsgBox "THIS TASK IS A SERVICE" & vbCrLf & vbCrLf & _
        "Use 'Service Due' to Remind Contractor of other tasks", vbCritical, "TASK TYPE"
        Exit Sub
    Else
    If Not IsEmpty(Target.Offset(0, 6).Value) Then
        MsgBox "Task Date shows as Completed", vbInformation, "DATE"
        Exit Sub
    Else
    If Not Target.Offset(0, 7).Comment Is Nothing Then
        MsgBox "Task Reminder email has already been sent", vbInformation, "NOTICE SENT"
        Exit Sub
    Else
        Call Module40.OpenTaskReminder
    End If
    End If
    End If
End Sub

Private Sub TaskDetails(ByVal Target As Range)
Dim rng As Range, cl As Range
        Set rng = Me.Range("D5:D505")
If Not Intersect(Target, rng) Is Nothing Then
        Set cl = Me.Cells(Target.Row, "L")
        MsgBox "" & cl.Value, vbInformation, "TASK DETAILS"
    End If
End Sub

Private Sub ServiceReminder(ByVal Target As Range)
    If Target.Offset(0, -5).Value <> "Service" Then
        MsgBox "THIS TASK IS NOT A SERVICE" & vbCrLf & vbCrLf & _
        "Use 'Date Raised' to Remind Contractor of other tasks", vbCritical, "TASK TYPE"
        Exit Sub
    Else
    If Not IsDate(Target.Offset(0, 1).Value) Then
        MsgBox "Service Due Date needs to be present", vbInformation, "DATE"
        Exit Sub
    Else
    If Not Target.Offset(0, 3).Comment Is Nothing Then
        MsgBox "Service Reminder email has already been sent", vbInformation, "NOTICE SENT"
        Exit Sub
    Else
        Call Module39.OpenServiceReminder
    End If
    End If
    End If
End Sub

Private Sub Thankyou(ByVal Target As Range)
    If Not IsDate(Target.Value) Then
        MsgBox "Task Completed Date needs to be present", vbCritical, "DATE"
        Exit Sub
    Else
    If Not Target.Offset(0, 1).Comment Is Nothing Then
        MsgBox "Thank You email has already been sent", vbInformation, "NOTICE SENT"
        Exit Sub
    Else
        Call Module38.OpenThankYou
    End If
    End If
End Sub

Sub ColumnList(Target As Range)
    If Not Module9.sheetJobRequestActive Then Exit Sub
    Dim rowValues As Range
    Dim lastRow As Long
        lastRow = Cells(Rows.count, "B").End(xlUp).Row
            Set rowValues = ActiveSheet.Range("B" & lastRow & ":L" & lastRow)
    Dim mValues As Variant
    mValues = Application.Transpose(ActiveSheet.Range("B" & lastRow & ":L" & lastRow))
    Dim i As Long
        For i = 1 To UBound(mValues, 1)
            ActiveSheet.Range("M" & i).Value = mValues(i, 1)
    Next i
    ActiveSheet.Range("B" & Cells(Rows.count, "B").End(xlUp).Row).Select
    Call Module14.TaskRequest
    doubleClickFlag = False
End Sub

Sub HistoryToNotepad()
Dim sourceWorkbook As Workbook
Dim destinationWorkbook As Workbook
Dim sourceWorksheet As Worksheet
Dim destinationWorksheet As Worksheet
Dim path As String, fileName As String
Dim lastRow As Long
Dim i As Long
path = "G:\Shared drives\Swan School Site Premises\PREMISES MANAGEMENT\SERVICE PROVIDERS\"
fileName = "Service Providers History.xlsx"
Set sourceWorkbook = ThisWorkbook
Set destinationWorkbook = Workbooks.Open(path & fileName)
destinationWorkbook.Windows(1).WindowState = xlMinimized
Dim activeSheetName As String
activeSheetName = sourceWorkbook.ActiveSheet.Name
Set sourceWorksheet = sourceWorkbook.ActiveSheet
Set destinationWorksheet = destinationWorkbook.Sheets(activeSheetName)
lastRow = destinationWorksheet.Cells(destinationWorksheet.Rows.count, "J").End(xlUp).Row
Shell "notepad.exe", vbNormalFocus
Application.Wait Now + TimeValue("00:00:01")
For i = 5 To lastRow
Dim text As String
text = destinationWorksheet.Range("I" & i).Value & " " & destinationWorksheet.Range("J" & i).Value
SendKeys text
SendKeys vbCrLf
Next i
SendKeys "^{HOME}"
destinationWorkbook.Close False
Set destinationWorksheet = Nothing
Set destinationWorkbook = Nothing
Set sourceWorksheet = Nothing
Set sourceWorkbook = Nothing
End Sub

Private Sub Worksheet_Deactivate()
    Module9.sheetJobRequestActive = False
    Call Module45.EnableApplications
    Call Module37.WordObjectDeactivate
End Sub