vba macro: find string in column thru loop then execute checker : I created a code that will find the word 'date' value on the field/column and if available it will check the date format of th entire row, so as long as the 'date' word/string is available it keeps on checking the date. I tried some code to loop thru column but no luck don't have an idea if where to put it.

code:

		Sub dateFromatChecker()

		Dim lrow, lcol As Long

		Range("A1").Select
		Range(Selection, Selection.End(xlToRight)).Select
			Selection.Find(What:="date", After:=ActiveCell, LookIn:=xlFormulas, _
			LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
			MatchCase:=False, SearchFormat:=False).Activate
			Selection.FindNext(After:=ActiveCell).Activate
		  
			ActiveCell.Offset(1, 0).Select
			lrow = Selection.End(xlDown).Row
				
				
				For x = 2 To lrow
			  
					If Cells(x, 2).NumberFormat <> "yyyy/dd/mm hh:mm:ss" Then
						'MsgBox "Incorrect Date format, Please use this date yyyy/dd/mm hh:mm:ss"
						Cells(x, 2).Interior.Color = vbBlue
					Else
						'MsgBox "Date is in Proper format"
					End If
					
			Next x
		  
		End Sub

My table
[![enter image description here][1]][1]


  [1]: https://i.stack.imgur.com/oe4R0.png