You can use the same range to search for both texts, assuming both are in row 1, which cuts the processing down by half e.g. as follows. This will work provided there are no merged cells.
Sub Table_Format()Dim objTable As Table
Dim objCell As Cell
Dim objRange As Range
Dim cellvalue As String
'Enter texts inside quotation marks
Const strFind1 As String = "ABCD"
Const strFind2 As String = "WXYZ:"
Application.ScreenUpdating = False
For Each objTable In ActiveDocument.Tables
For Each objCell In objTable.Range.Rows(1).Cells
Set objRange = objCell.Range
objRange.End = objRange.End - 1
If InStr(objRange, strFind1) Then
objTable.Range.Font.Name = "Arial"
objTable.Range.Font.Size = 8
objTable.Range.Font.ColorIndex = wdAuto
objTable.Rows.AllowBreakAcrossPages = False
objTable.Rows.Alignment = wdAlignRowCenter
objTable.Rows.HeightRule = wdRowHeightAuto
objTable.Rows.Borders.InsideLineStyle = wdLineStyleSingle
objTable.Rows.Borders.InsideLineWidth = wdLineWidth050pt
objTable.Rows.Borders.OutsideLineStyle = wdLineStyleSingle
objTable.Rows.Borders.OutsideLineWidth = wdLineWidth150pt
objTable.Rows.Borders.InsideColor = wdColorBlack
objTable.AutoFitBehavior (wdAutoFitContent)
objTable.PreferredWidthType = wdPreferredWidthPercent
objTable.PreferredWidth = 100
objTable.Columns(1).Shading.BackgroundPatternColor = wdColorGray10
objTable.Columns(1).Select
Selection.Font.Bold = True
Exit For
End If
If InStr(objRange, strFind2) Then
objTable.Range.Font.Name = "Arial"
objTable.Range.Font.Size = 8
objTable.Range.Font.ColorIndex = wdAuto
objTable.Rows.AllowBreakAcrossPages = False
objTable.Rows.Alignment = wdAlignRowCenter
objTable.Rows.HeightRule = wdRowHeightAuto
objTable.Rows.Borders.InsideLineStyle = wdLineStyleSingle
objTable.Rows.Borders.InsideLineWidth = wdLineWidth050pt
objTable.Rows.Borders.OutsideLineStyle = wdLineStyleSingle
objTable.Rows.Borders.OutsideLineWidth = wdLineWidth150pt
objTable.Rows.Borders.InsideColor = wdColorBlack
objTable.AutoFitBehavior (wdAutoFitContent)
objTable.PreferredWidthType = wdPreferredWidthPercent
objTable.PreferredWidth = 100
objTable.Rows(1).Shading.BackgroundPatternColor = wdColorDarkBlue
objTable.Rows(1).Range.Font.Bold = True
objTable.Rows(1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
objTable.Rows(1).Cells.VerticalAlignment = wdCellAlignVerticalCenter
Exit For
End If
Next
Next
Application.ScreenUpdating = True
Application.ScreenRefresh
Selection.HomeKey Unit:=wdStory
MsgBox "Done!", vbInformation
End Sub