Sub EnterSquareRoot4()
Dim Num As Variant
If TypeName(Selection) <> "Range" Then
MsgBox "Select a range first."
Exit Sub
End If
Num = InputBox("Enter a value")
If Not IsNumeric(Num) Then
MsgBox "You must enter a number."
Exit Sub
End If
If Num < 0 Then
MsgBox "You must enter a positive number."
Exit Sub
End If
ActiveCell.value = Sqr(Num)
End Sub
|