How to Stop & Exit Sub if cell value > 1 was found

Hello All,
Any one can help me how to stop and exit sub if cells value > 1 was found? If not continous macro

Sub Testing()

Dim lastrow As Long
Dim iCell As Long
lastrow = Range("B" & Rows.Count).End(xlUp).Row
For iCell = lastrow To 2 Step -1
If Range("B" & iCell) > 1 Then
With Range("B" & iCell)
.EntireRow.RowHeight = 38
End With
End If
Next iCell

''''''''I want to stop and Exit Sub right away if any cell value > 1 was found
''''''''If there's no value > 1 then

Else

UserForm1.Show

End Sub

Regards,
tt3