Something like this should do the job:
Sub test()
Dim i As Long
Dim LR As Long
Dim arr
LR = Cells(65536, 1).End(xlUp).Row
arr = Range(Cells(1), Cells(LR, 4))
For i = 1 To UBound(arr)
If arr(i, 1) + arr(i, 2) + arr(i, 3) + arr(i, 4) < 1 Then
Range(Cells(i, 1), Cells(i, 4)).Select
MsgBox "row " & i & " (the selected range) does not add up to 100%!",
_
vbCritical, "checking row sums"
End If
Next i
End Sub
RBS
"Can't do Macros" <Can't do
wrote in
message ...
I have a sheet with a list of employees that has percentages listed in 4
columns out from their name. How can I get an error message to pop up for
any row that doesn't equal 100% when you add up the 4 columns in each row?
Therefore, I want the macro to loop around so that it goes down the sheet
summing the 4 columns for each employee and an error message will pop when
it
hits a row that doesn't equal 100%.