Public Sub Test()
Dim ws As Worksheet, loLetzte As Long, i As Long
For Each ws In ThisWorkbook.Worksheets
With ws
loLetzte = .Cells(.Rows.Count, 15).End(xlUp).Row
For i = loLetzte To 1 Step -1
If .Cells(i, 15) > .Cells(i, 16) Then
MsgBox ws.Name & " O" & i & " ist größer als P" & i
Else
MsgBox ws.Name & " O" & i & " ist nicht größer als P" & i & vbLf _
& "Ich habe aber keine Ahnung was ich machen soll."
End If
Next i
End With
Next ws
End Sub