title: VBA to check the specific columns are exists in the sheet
body: <p>Before running into main procedure here i am checking whether some specific columns are exists in the sheet1 or not, But the problem is in that raw data sheet columns like "Employee Name" &amp; "Designation" are in that sheet, but when run the below code it is giving an message "Not Found" and it is coming out of that loop, Can you please help me on this issue.</p>
  
  <pre><code>Dim rngX As Range
  Sub Colvalidation1()
  
  Set rngX = Worksheets("Sheet1").Range("A1:S1").Find("Work Geography", lookat:=xlPart)
  If Not rngX Is Nothing Then
  Call Colvalidation2
  Else
      MsgBox "Work Geography - Column Not Found"
  End If
  End Sub
  
  Sub Colvalidation2()
  
  Set rngX = Worksheets("Sheet1").Range("A1:S1").Find("Work Country",
  lookat:=xlPart)
  If Not rngX Is Nothing Then
  Call Colvalidation3
  Else
      MsgBox "Work Country - Column Not Found"
  End If
  End Sub
  
  Sub Colvalidation3()
  
  Set rngX = Worksheets("Sheet1").Range("A1:S1").Find("Project #", lookat:=xlPart)
  If Not rngX Is Nothing Then
  Call Colvalidation4
  Else
      MsgBox "Project # - Column Not Found"
  End If
  End Sub
  
  Sub Colvalidation4()
  
  Set rngX = Worksheets("Sheet1").Range("A1:S1").Find("Project Name", lookat:=xlPart)
  If Not rngX Is Nothing Then
  Call Colvalidation5
  Else
      MsgBox "Project Name - Column Not Found"
  End If
  End Sub
  
  Sub Colvalidation5()
  
  Set rngX = Worksheets("Sheet1").Range("A1:S1").Find("Employee #", lookat:=xlPart)
  If Not rngX Is Nothing Then
  Call Colvalidation8
  Else
      MsgBox "Employee # - Column Not Found"
  End If
  End Sub
  
  Sub Colvalidation6()
  
  Set rngX = Worksheets("Sheet1").Range("A1:S1").Find("Employee Name", lookat:=xlPart)
  If Not rngX Is Nothing Then
  Call Colvalidation7
  Else
      MsgBox "Employee Name - Column Not Found"
  End If
  End Sub
  
  Sub Colvalidation7()
  
  Set rngX = Worksheets("Sheet1").Range("A1:S1").Find("Designation", lookat:=xlPart)
  If Not rngX Is Nothing Then
  Call Colvalidation8
  Else
      MsgBox "Designation - Column Not Found"
  End If
  End Sub  
  </code></pre>