Typical solution is to force both sides of the comparison to all upper case
or all lower case.

If LCase(varInput) = LCase("test_1") Then

Troy

"rleonard" wrote in message
...
Macro will not work if input box entry is in upper case and If statment =
a item in lower case
Is there a way to fix so macro will work regardless of how entered in
input box
Thanks
Bob Leonard


Sub TestIf()

Dim varInput As String
Range("P5").Select
varInput = InputBox("Enter Value")
Selection.VALUE = varInput

If Selection.VALUE = "test_1" Then
Application.Run "test"

ElseIf Selection.VALUE = "test_2" Then
Application.Run "test2"

End If
End Sub