Mesagebox VBA that tell you what header is not filled in

[tonywatsonhelp]

Hi Everyone,

I'd like a macro that when its run will do the following:

On Activesheet,
Get the Number from Cell B5, Look at each Number in range C5:AB5
if any of these numbers are not the same as in B5 make a list and message box what headers are not correctly filled in (Headers are in row 7)

So if I was writing this in English this is how I'd put it,
Run Macro,

Look at Value in activesheet B5 and remember it,

Then look along range C5:AB5 if any of the numbers in any of these cells are not the same as B5 then look at the header title in row 7 and remember it,

then once you have done all the cells message box "The following Columns have data missing, please correct this before proceeding"
then list each header as a separate Row

I'm struggling this this please help if you can

Thanks

Tony

 

[mohadin]

Hi
What about

Sub test()
Dim x As String
Dim cel As Range
x = ""
For Each cel In Range("C5:AB5")
If cel <> Range("B5") Then
x = x & vbLf & cel.Offset(2)
End If
Next
MsgBox "The following Columns have data missing, please correct this before proceeding" & vbLf & x
End Sub