If statement based on InputBox

[288enzo]

I can get this to work using Select Case, but was trying to shorten it up a bit.

No matter the InputBox response, row 4 is delete. I only want row 4 to be deleted if 82, 83, or 84 is entered.

Sub Another_Test()
    Dim strArea As String
    strArea = InputBox("Area? (80,82,83,84,87)")
    If CInt(strArea) = 82 Or 83 Or 84 Then
            Rows("4").Delete
    End If
End Sub

 

[Fluff]

How about

Sub Another_Test()
    Dim strArea As String
    strArea = InputBox("Area? (80,82,83,84,87)")
    Select Case CInt(strArea)
      Case 82 To 84: Rows("4").Delete
    End Select
    End If
End Sub

 

[288enzo]

How about

Sub Another_Test()
    Dim strArea As String
    strArea = InputBox("Area? (80,82,83,84,87)")
    Select Case CInt(strArea)
      Case 82 To 84: Rows("4").Delete
    End Select
    End If
End Sub

Thank you, I've been using that but was trying to shorten it without the use of Select Case. I had thought I saw someone else do something similar, but can't find it.

 

[288enzo]

How about

Sub Another_Test()
    Dim strArea As String
    strArea = InputBox("Area? (80,82,83,84,87)")
    Select Case CInt(strArea)
      Case 82 To 84: Rows("4").Delete
    End Select
    End If
End Sub

Looking at your example again, I don't think I need that last "End If". If that's true, your example is the same number of lines as mine...sooooo

Sub Another_Test()
    Dim strArea As String
    strArea = InputBox("Area? (80,82,83,84,87)")
    Select Case CInt(strArea)
      Case 82 To 84: Rows("4").Delete
    End Select
End Sub

Thank you for the help

 

[Fluff]

I don't think I need that last "End If"

You're quite right, I forgot to remove it.

 

[dmt32]

Another possibility

Sub Another_Test()
    Dim strArea As String
    Do
    strArea = InputBox("Area? (80,82,83,84,87)")
    'cancel pressed
    If StrPtr(strArea) = 0 Then Exit Sub
    Loop Until Not IsError(Application.Match(Val(strArea), Array(80, 82, 83, 84, 87), 0))
    
    Rows("4").Delete

End Sub

Dave

 

[Fluff]

Or even

Sub Another_Test()
    Dim strArea As String
    strArea = InputBox("Area? (80,82,83,84,87)")
    If CInt(strArea) >= 82 And CInt(strArea) <= 84 Then
      Rows("4").Delete
    End If
End Sub