Excel VBA - validate column headers

validate-column-headers.vba

Const COL_FIRST_NAME = "A"
Const ROW_HEADER = "2"

Dim validation As Boolean
validation = validateColHeaders()

If validation = False Then
    End
End If



Public Function validateColHeaders() As Boolean

    Dim okToProceed As Boolean
    okToProceed = True

    If Worksheets("import").Range(COL_FIRST_NAME & ROW_HEADER).FormulaR1C1 <> "firstName" Then
        MsgBox "Column 'firstName' not found where expected"
        okToProceed = False
    End If

    validateColHeaders = okToProceed

End Function