Question about multiple IFs

[Don Guillett]

Sent him this
Sub listteachers()
With Sheets("Staff Analysis")
On Error Resume Next
For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
ms = ""
For ii = 2 To 5
If .Cells(i, ii) > 2 Then ms = ms & ", " & .Cells(1, ii)
Next ii
Sheets("Dest").Cells(i, "b").Value = Right(ms, Len(ms) - 2)
Next i
End With
End Sub


--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(e-mail address removed)
"Steve Audus, Chaucer BEC, Sheffield UK"