Check Headers and stop the next Macro if its different...

Hello, I did not want to bother you again but I have a problem that I can not solve it because my knowledge in vba etc, are limited and could not become to find with Macro Recorder.
Usually I solve the problems on my own by searching on Google and experimenting with ready Macros and Macro Recorder.


I have an excel file with a macro and I want before this macro launched, to run another macro that can check if the headers have the correct name and in its correct position. The headers is in first Row.


If are not in the correct position or if it doesn't exist or if not have the correct name, then the process of the next macro be stopped and of course be informed that there is a problem.

But if Is everything okay, then proceed to the next macro and be informed that Is everything okay.


I have attached a Sample file with the headers i'm using.
Sample...xlsm

I know it's a difficult thing what I'm asking. I'm not asking necessarily someone to write this for me, i just asking if you have any information that could help me or some combination of ready macros where I could work, you saved my life.


This is my headers:

A: Product ID
B: Model Code
C: Full Product Name
D: Short Product Name
E: Product URL
F: Category Name
G: Category URL
H: Subcategory Name
I: Subcategory URL
J: Date Product Was Launched
K: Main Product Picture
L: Currency
M: 1pc Price
N: 1pc Cheapest Postal Shipping Price
O: 1pc Cheapest Express Courier Shipping Price
P: EAN
Q: Soon Discontinued
R: Full Product Description Part 1
S: Full Product Description Part 2
T: Short Description
U: Additional Product Picture 1
V: Additional Product Picture 2
W: Additional Product Picture 3
X: Additional Product Picture 4
Y: Additional Product Picture 5
Z: Additional Product Picture 6
AA: Additional Product Picture 7
AB: Additional Product Picture 8
AC: Additional Product Picture 9
AD: Additional Product Picture 10
AE: Related Products	
AF: Related Accessories

Thanks for your time and apologize for'm a newbie.

Where are the headers you want to check for?

in first row. I have included in my post.

Originally Posted by nilem

try it

Sub ertert()
Dim arrH, x, i&, s$
arrH = Array("Product ID", "Model Code", "Full Product Name", "Short Product Name", "Product URL", _
             "Category Name", "Category URL", "Subcategory Name", "Subcategory URL", "Date Product Was Launched", _
             "Main Product Picture", "Currency", "1pc Price", "1pc Cheapest Postal Shipping Price", _
             "1pc Cheapest Express Courier Shipping Price", "EAN", "Soon Discontinued", "Full Product Description Part 1", _
             "Full Product Description Part 2", "Short Description", "Additional Product Picture 1", "Additional Product Picture 2", _
             "Additional Product Picture 3", "Additional Product Picture 4", "Additional Product Picture 5", _
             "Additional Product Picture 6", "Additional Product Picture 7", "Additional Product Picture 8", _
             "Additional Product Picture 9", "Additional Product Picture 10", "Related Products", "Related Accessories")
With Sheets("Sample-Sheet")
    x = .Range("A1", .Cells(1, Columns.Count).End(xlToLeft)).Value
End With
For i = 0 To UBound(arrH)
    If arrH(i) <> Trim(x(1, i + 1)) Then s = s & arrH(i) & vbCrLf
Next i
If Len(s) Then
    MsgBox "Check headers:" & vbCrLf & s, 64
    Exit Sub
Else
    MsgBox "ok", 64
End If
'your code here
End Sub

Thank you very match, it's working.