In the woorksheet code below, the following block of code is not being triggered when I enter a value in any cell in column 'G'.

Set rngG = Intersect(Target, Range("G5:G500"))
If Not rngG Is Nothing Then
    If rngG.Value = "" Then
        Exit Sub
    'ElseIf IsNumeric(rngG.Value) Then
    ElseIf rngG.Value <> "" Then
        If IsDate(rngG.Offset(0, 2).Value) = False Then
            MsgBox "Date Service Completed not present"
        End If
        Exit Sub
    'ElseIf IsNumeric(rngG.Value) Then
    ElseIf rngG.Value <> "" Then
        If rngG.Offset(0, -5).Value <> "Service" Then
            MsgBox "Service Schedule Days must ONLY be entered for Services"
        End If
        Exit Sub
    'ElseIf IsNumeric(rngG.Value) Then
    ElseIf rngG.Value <> "" Then
        If IsDate(rngG.Offset(0, 2).Value) <> False And rngG.Offset(0, -5).Value = "Service" Then
            MsgBox "A New Service row will now be created"
            rngG.Offset(0, -5).Value = "Serviced"
            rngG.Offset(0, 1).Value = ""
            Dim newRow As Long
            newRow = Cells(Rows.Count, "B").End(xlUp).Row + 1
            Range("B" & newRow).Value = "Service"
            Range("C" & newRow).Value = rngG.Offset(0, 2).Value
            Range("F" & newRow).Value = rngG.Offset(0, -1).Value
            Range("J" & newRow).Value = rngG.Offset(0, 3).Value
            Range("L" & newRow).Value = rngG.Offset(0, 5).Value
            Range("H" & newRow).Value = rngG.Offset(0, 2).Value + rngG.Value
            Exit Sub
        End If
    End If
End If
Exit Sub

Can you please check the entire worksheet code below to determine what may be causing this.

Option Explicit
Dim previousValue As Variant
Dim doubleClickFlag As Boolean

Private Sub Worksheet_Activate()
Call Module11.EnableManualMainEvents
Application.Wait (Now + TimeValue("0:00:01"))
Dim lastRow As Long
Dim cellAbove As Range
lastRow = Cells(Rows.Count, "J").End(xlUp).Row
If lastRow > 1 Then
Set cellAbove = Cells(lastRow - 1, "K")
cellAbove.Copy
Range("K" & lastRow).PasteSpecial xlPasteValues
Range("A" & lastRow).Select
End If
Application.CutCopyMode = False
Call Module21.FindEarliestServiceDate
Range("J1").Calculate
Range("B1").Calculate
Range("E1:H1").Calculate
Range("E2:I2").Calculate
ColumnList Me.Range("B1")
Call Module20.RowRequest
Application.Wait (Now + TimeValue("0:00:01"))
Call Module23.SortTasksByDate
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$C$2" Then
    Dim response As Integer
    response = MsgBox("This process will copy all existing completed Tasks to the next Uncompleted Task" & vbCrLf & _
                      "and paste the copy into workbook ‘Service Providers History'." & vbCrLf & _
                      "After the paste, all copied Tasks will be deleted." & vbCrLf & vbCrLf & _
                      "Please choose an option:" & vbCrLf & vbCrLf & _
                      "Yes - SAVE COMPLETED TASKS TO HISTORY" & vbCrLf & vbCrLf & _
                      "No - OPEN HISTORY AND VIEW SAVED TASKS" & vbCrLf & vbCrLf & _
                      "Cancel - CANCEL TO DO NOTHING", vbQuestion + vbYesNoCancel, "Confirmation")
    If response = vbYes Then
        Call Module22.ServiceProvidersHistory
    ElseIf response = vbNo Then
        Dim sourceWB As Workbook
        Dim sourceWS As Worksheet
        Dim historyWB As Workbook
        Dim historyWS As Worksheet
        Set sourceWB = ActiveWorkbook
        Set sourceWS = sourceWB.ActiveSheet
        Set historyWB = Workbooks.Open("G:\Shared drives\Swan School Site Premises\PREMISES MANAGEMENT\SERVICE PROVIDERS\Service Providers History.xlsx")
        historyWB.Activate
        Set historyWS = historyWB.Sheets(sourceWS.Name)
        If historyWS Is Nothing Then
            sourceWS.Copy After:=historyWB.Sheets(historyWB.Sheets.Count)
            Set historyWS = historyWB.ActiveSheet
            historyWS.Name = sourceWS.Name
        End If
        historyWB.Sheets(sourceWS.Name).Select
    ElseIf response = vbCancel Then
        Exit Sub
    End If
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 DisplaySSDays
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = True
    Dim rngI As Range
    Dim rngG As Range
    Dim cell As Range

Set rngI = Intersect(Target, Range("I5:I500"))
If Not rngI Is Nothing Then
    If IsDate(rngI.Value) Then
        If rngI.Offset(0, -7).Value = "Service" Then
            MsgBox "Thank you for entering Service Date Completed. Please proceed to enter Service Schedule as number of days."
            rngI.Offset(0, -2).Select
            Exit Sub
        Else
            If rngI.Offset(0, -7).Value <> "Service" Then
                If Not doubleClickFlag Then
                    MsgBox "Please proceed to change the Issue description (column B) as required."
                    rngI.Offset(0, -7).Select
                End If
            End If
        End If
    End If
End If
doubleClickFlag = False
Exit Sub

doubleClickFlag = False

Set rngG = Intersect(Target, Range("G5:G500"))
If Not rngG Is Nothing Then
    If rngG.Value = "" Then
        Exit Sub
    'ElseIf IsNumeric(rngG.Value) Then
    ElseIf rngG.Value <> "" Then
        If IsDate(rngG.Offset(0, 2).Value) = False Then
            MsgBox "Date Service Completed not present"
        End If
        Exit Sub
    'ElseIf IsNumeric(rngG.Value) Then
    ElseIf rngG.Value <> "" Then
        If rngG.Offset(0, -5).Value <> "Service" Then
            MsgBox "Service Schedule Days must ONLY be entered for Services"
        End If
        Exit Sub
    'ElseIf IsNumeric(rngG.Value) Then
    ElseIf rngG.Value <> "" Then
        If IsDate(rngG.Offset(0, 2).Value) <> False And rngG.Offset(0, -5).Value = "Service" Then
            MsgBox "A New Service row will now be created"
            rngG.Offset(0, -5).Value = "Serviced"
            rngG.Offset(0, 1).Value = ""
            Dim newRow As Long
            newRow = Cells(Rows.Count, "B").End(xlUp).Row + 1
            Range("B" & newRow).Value = "Service"
            Range("C" & newRow).Value = rngG.Offset(0, 2).Value
            Range("F" & newRow).Value = rngG.Offset(0, -1).Value
            Range("J" & newRow).Value = rngG.Offset(0, 3).Value
            Range("L" & newRow).Value = rngG.Offset(0, 5).Value
            Range("H" & newRow).Value = rngG.Offset(0, 2).Value + rngG.Value
            Exit Sub
        End If
    End If
End If
Exit Sub

    If Target.Column = 5 Then
    doubleClickFlag = False
        ColumnList Target
    End If
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.Column = 3 Then
        TaskReminder Target
        
        previousValue = doubleClickedCell.Value
    doubleClickFlag = True 'for column C
    
    ElseIf Target.Column = 4 Then
        TaskDetails Target
        
        previousValue = doubleClickedCell.Value
    doubleClickFlag = True ' for column D
    
    ElseIf Target.Column = 7 Then
        ServiceReminder Target
        
        previousValue = doubleClickedCell.Value
    doubleClickFlag = True ' for column G
    
    ElseIf Target.Column = 9 Then
        Thankyou Target
        
        previousValue = doubleClickedCell.Value
    doubleClickFlag = True ' for column I
    End If
    
        If Target.CountLarge > 1 Then Exit Sub
        If Not Intersect(Target, Range("B2")) Is Nothing Then
        Call DisplayServices
        
        previousValue = doubleClickedCell.Value
    doubleClickFlag = True
        
    End If
'Application.EnableEvents = True
End Sub

Private Sub TaskDetails(ByVal Target As Range)
Dim rng As Range, cl As Range
    'Set the range to D5:D500
    Set rng = Me.Range("D5:D500")
If Not Intersect(Target, rng) Is Nothing Then
        'Get the value in Column L of the same row as the double-clicked cell
        Set cl = Me.Cells(Target.Row, "L")
        'Display the value in a pop-up message
        MsgBox "" & cl.Value, vbInformation, "TASK DETAILS"
    End If
End Sub

Private Sub TaskReminder(ByVal Target As Range)
    If Not IsEmpty(Target.Offset(0, 6).Value) Then
        MsgBox "Task Date shows as Completed"
    Else
        Call OpenTaskReminder
    End If
End Sub

Private Sub ServiceReminder(ByVal Target As Range)
    If Not IsDate(Target.Offset(0, 1).Value) Then
        MsgBox "Service Due Date needs to be present"
    Else
        Call OpenServiceReminder
    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"
    Else
Dim doubleClickedCell As Range
Set doubleClickedCell = Target.Cells(1)
        Call OpenThankYou
previousValue = doubleClickedCell.Value
doubleClickFlag = True ' for column I
    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 = Range("B" & lastRow & ":L" & lastRow)
Dim mValues As Variant
mValues = Application.Transpose(Range("B" & lastRow & ":L" & lastRow))
Dim i As Long
For i = 1 To UBound(mValues, 1)
Range("M" & i).Value = mValues(i, 1)
Next i
Range("B" & Cells(Rows.Count, "B").End(xlUp).Row).Select
Call Module14.TaskRequest
End Sub

Sub OpenTaskReminder()
Dim wdApp As Object
Dim wdDoc As Object
Dim WsdShell As Object
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open("G:\Shared drives\Swan School Site Premises\PREMISES MANAGEMENT\SERVICE PROVIDERS\zzzz ServProvDocs\TaskReminder.docm")
wdApp.Visible = True
wdDoc.Activate
Set WsdShell = CreateObject("WScript.Shell")
WsdShell.AppActivate wdApp.Caption
End Sub

Sub OpenServiceReminder()
Dim wdApp As Object
Dim wdDoc As Object
Dim WsdShell As Object
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open("G:\Shared drives\Swan School Site Premises\PREMISES MANAGEMENT\SERVICE PROVIDERS\zzzz ServProvDocs\ServiceReminder.docm")
wdApp.Visible = True
wdDoc.Activate
Set WsdShell = CreateObject("WScript.Shell")
WsdShell.AppActivate wdApp.Caption
End Sub

Sub OpenThankYou()
Dim wdApp As Object
Dim wdDoc As Object
Dim WsdShell As Object
Set wdApp = CreateObject("Word.Application")
Set wdDoc = wdApp.Documents.Open("G:\Shared drives\Swan School Site Premises\PREMISES MANAGEMENT\SERVICE PROVIDERS\zzzz ServProvDocs\ThankYouTask.docm")
wdApp.Visible = True
wdDoc.Activate
Set WsdShell = CreateObject("WScript.Shell")
WsdShell.AppActivate wdApp.Caption
End Sub

Sub DisplayServices()
Application.EnableEvents = False
    Dim cellValue1 As String
    Dim cellValue2 As String
    Dim cellValue3 As String
    Dim cellValue4 As String
    Dim cellValue5 As String
    Dim cellValue6 As String
    Dim cellValue7 As String
    Dim cellValue8 As String
    Dim cellValue9 As String
    Dim cellValue10 As String
    Dim cellValue11 As String
    Dim cellValue12 As String
    Dim cellValue13 As String
    Dim cellValue14 As String
    Dim cellValue15 As String
    cellValue1 = Range("N1").Value
    cellValue2 = Range("N2").Value
    cellValue3 = Range("N3").Value
    cellValue4 = Range("N4").Value
    cellValue5 = Range("N5").Value
    cellValue6 = Range("N6").Value
    cellValue7 = Range("N7").Value
    cellValue8 = Range("N8").Value
    cellValue9 = Range("N9").Value
    cellValue10 = Range("N10").Value
    cellValue11 = Range("N11").Value
    cellValue12 = Range("N12").Value
    cellValue13 = Range("N13").Value
    cellValue14 = Range("N14").Value
    cellValue15 = Range("N15").Value
    MsgBox "" & cellValue1 & vbCrLf & _
           "" & cellValue2 & vbCrLf & _
           "" & cellValue3 & vbCrLf & _
           "" & cellValue4 & vbCrLf & _
           "" & cellValue5 & vbCrLf & _
           "" & cellValue6 & vbCrLf & _
           "" & cellValue7 & vbCrLf & _
           "" & cellValue8 & vbCrLf & _
           "" & cellValue9 & vbCrLf & _
           "" & cellValue10 & vbCrLf & _
           "" & cellValue11 & vbCrLf & _
           "" & cellValue12 & vbCrLf & _
           "" & cellValue13 & vbCrLf & _
           "" & cellValue14 & vbCrLf & _
           "" & cellValue15, vbInformation, "CONTRACTOR SERVICES"
Application.EnableEvents = True
End Sub

Sub DisplaySSDays()
Application.EnableEvents = False
    Dim cellValue1 As String
    Dim cellValue2 As String
    Dim cellValue3 As String
    Dim cellValue4 As String
    Dim cellValue5 As String
    Dim cellValue6 As String
    cellValue1 = Range("N16").Value
    cellValue2 = Range("N17").Value
    cellValue3 = Range("N18").Value
    cellValue4 = Range("N19").Value
    cellValue5 = Range("N20").Value
    cellValue6 = Range("N21").Value
    MsgBox "" & cellValue1 & vbCrLf & _
           "" & cellValue2 & vbCrLf & _
           "" & cellValue3 & vbCrLf & _
           "" & cellValue4 & vbCrLf & _
           "" & cellValue5 & vbCrLf & _
           "" & cellValue6, vbInformation, "SERVICE SCHEDULE DAYS"
Application.EnableEvents = True
End Sub

Private Sub Worksheet_Deactivate()
Module9.sheetJobRequestActive = False
Call Module12.MainEventsEnabled
Dim objWord As Object
On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then
Exit Sub
End If
If objWord.ActiveDocument.Name = "TaskRequest.docm" Or objWord.ActiveDocument.Name = "AdminRequest.docm" Then
objWord.Quit SaveChanges:=wdDoNotSaveChanges
Set objWord = Nothing
End If
End Sub