---

Sub Calc()
    If IsNumeric([A1]) And IsNumeric([B1]) And [A1] > [B1] Then
        [C1] = Sqr([A1] ^ 2 - [B1] ^ 2)
    Else
        [C1] = "Ошибка"
    End If
End Sub