Check the selection type : TypeName « Data Type « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Data Type
3. TypeName

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

 

Related examples in the same category