Mega Code Archive

 

Categories / VisualBasic Script / Data Type

 

Check the selection type

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