Macro to find a name in row 8 and check if the value in next column is 0

[tonywatsonhelp]

Hi Everyone,

so I have a sheet called "Totals"

I need a macro that when run can look along row 8 find the name in cell B5
look at the value in the cell above it and if its a zero

pop up a message box saying " No DATA"

please help if you can

Thanks

Tony

 

[wideboydixon]

Public Sub CheckNoData()

Dim foundColumn As Variant

foundColumn = Application.Match(Range("B5").Value, Range("8:8"), 0)
If Not IsError(foundColumn) Then
    If Cells(7, foundColumn).Value = 0 Then MsgBox "No DATA"
End If

End Sub

WBD

 

[tonywatsonhelp]

Brilliant wide boy

Thank you

Tony