VBA code to check values in row are the same

[Rachey]

Hi I need a code to check the values in row 7 are identical and pop up a message box if not. (to run on selection change)

Sounds simple but I cant seem to find anything that will help - use VBA quite a bit but usually find code on the internet and modify to do what I want. Im fine putting the message in I just cant find the code to check the values in the row are all the same.

Thanks

 

[Aaron Blood]

Assuming we are indeed working with "values"...
I would just write a little function that tests to see if the Min and Max of the specified range are equivalent.

Sub Test()
    MsgBox SameVals(Range("7:7"))
End Sub

Function SameVals(ByRef Rng As Range) As Boolean
    With Application.WorksheetFunction
        SameVals = .Min(Rng) = .Max(Rng)
    End With
End Function

 

[Rachey]

Ah - easy when you know how i see. Thank you.