InputBox Error if left blank or cancel is selected

[BrittKnee]

Hey all! I have been trying to figure out the code to give an error message when the user leaves it blank or hits cancel with no luck. Thanks for the help!!

 

[dmt32]

Hi,
try this & see if helps

Sub InputBoxTest()
    Dim GetInput As Variant
    Dim Prompt As String, Title As String
    
    Prompt = "Enter Your Name"
    Title = "Enter Name"
    
    Do
    GetInput = InputBox(Prompt, Title)
'cancel pressed
    If StrPtr(GetInput) = 0 Then Exit Sub
'exit when value entered
    Loop Until Len(GetInput) > 0
    
    MsgBox GetInput
End Sub

Dave