Hi

I have the following code which was kindley sent to me. The code is used to check to see if there is any data in a particular row in the range 3 to 38 on all of the sheets in the workbook (31) So to use one row as an example Row 3

If there is data in either D3:G3 BUT K3 and or L3 is blank then report it using the Msgbox as per the code...

Sub CheckMissingTimes()
    'Written by Trebor76
    'Visit my website www.excelguru.net.au
    Dim wstSheet As Worksheet
    Dim strSheetList As String
    Dim varSheetName As Variant
    Dim lngMyRow As Long
    
    Application.ScreenUpdating = False
    
    For Each wstSheet In ThisWorkbook.Sheets
        For lngMyRow = 3 To 38
            If InStr(CStr(wstSheet.Name), " ") > 0 Then
                varSheetName = "'" & CStr(wstSheet.Name) & "'"
            Else
                varSheetName = CStr(wstSheet.Name)
            End If
            If Evaluate("SUMPRODUCT((" & varSheetName & "!D" & lngMyRow & ":G" & lngMyRow & "<>"""")*(" & varSheetName & "!D" & lngMyRow & ":G" & lngMyRow & "<>""""))") > 0 Then
                If Evaluate("SUMPRODUCT((" & varSheetName & "!K" & lngMyRow & ":L" & lngMyRow & "<>"""")*(" & varSheetName & "!K" & lngMyRow & ":L" & lngMyRow & "<>""""))") < 2 Then
                    If strSheetList = "" Then
                        strSheetList = wstSheet.Name
                    Else
                        strSheetList = strSheetList & vbNewLine & wstSheet.Name
                    End If
                Exit For
                End If
            End If
        Next lngMyRow
    Next wstSheet
    
    Application.ScreenUpdating = True
    
    If strSheetList <> "" Then
        MsgBox "The following dates have finish times missing" & vbNewLine & vbNewLine & strSheetList & vbNewLine & vbNewLine & "."
    End If
End Sub

What I am trying to do is to adapt this code for a new macro to find the text "TBC" or "Tbc" in any of the cells in the range D3 to L38. I would prefer to adapt this rather than use something else as the way it reports the results in the Msg box is exactly what I need for my users - its easy for them to understand !

My coding knowledge is very limited but I can work out how parts of the code above work and what certin bits mean but no matter what I try I cannot get it adapted for the new macro.

Is what I'm asking possible? If so can someone please tell me how to do it?

Many thanks

Paul