Monday 6 April 2015

VBA Square root

Sub SquareRoot()
Dim number As Integer
On Error GoTo errhandle
number = InputBox("Enter the number : ")
MsgBox ("The square root is : " & Sqr(number))
errhandle:
Exit Sub

End Sub

No comments:

Post a Comment