How to create VBA code to go down a column and check if values are present in a table

Requirement:

The user needs a macro to check each name in range F2:F11 and determine if it exists in MainTable, column 1.

If it does, do nothing. If it does not, call a MsgBox.

The user would like the code to run through the entire table and then, at the end, call the MsgBox if the name from range F2:F11 was not found.

Said another way: Run through MainTable and check for the name "Bryan". If present, do nothing and move on to "Darrel". If not, call MsgBox. And do that for each name in range F2:F11example1.xlsm

https://www.ozgrid.com/forum/forum/help-forums/excel-vba-macros/148822-go-down-a-column-and-check-if-values-are-present-in-a-table

Solution:

Code:

Sub CheckNames()
Dim ws As Worksheet
Dim tbl As ListObject
Dim rng As Range, cell As Range
Dim str As String

Set ws = Sheets("Sheet1")
Set tbl = ws.ListObjects("MainTable")
Set rng = Range("F2:F11")
str = "The following name is not present in Main Table." & vbNewLine & vbNewLine
For Each cell In rng
    If Application.CountIf(tbl.Range.Columns(1), cell) = 0 Then
        str = str & cell.Value
        MsgBox str
        Exit Sub
    End If
Next cell
End Sub

Obtained from the OzGrid Help Forum.

Solution provided by sktneer.