Private Sub Check_diff()
Dim r
Dim sh As Worksheet
Dim i%, min%, max%
For Each sh In ThisWorkbook.Worksheets
    r = sh.Range(sh.Cells(5, 2), sh.Cells(5, sh.Range("a1").End(xlToRight).Column))
    min = r(1, 1)
    For i = LBound(r, 2) To UBound(r, 2)
        If r(1, i) > max Then max = r(1, i)
        If r(1, i) < min Then min = r(1, i)
    Next i
    If max - min > 1 Then
        If MsgBox("Разница на листе " & sh.Name & " больше единицы. Минимальное значение - " & min & ", максимальное - " & max & _
        ". Продолжить проверку для останых листов?", vbYesNo + vbQuestion + vbDefaultButton2, "Подтверждение") = vbNo Then
            sh.Activate
            Exit Sub
        End If
    End If
Next
End Sub

min = r(1, 1)

MsgBox (Application.Max(Rows(5)) - Application.Min(Rows(5))) <= 1