Retain the state of an inputbox's default input for successive runs

**MCCCLXXXV** · 05-05-2011, 08:28 AM

Is there a way to do the following:

1. run the macro below through to the end
2. run it a second time, but this time the default of the inputbox is set to whatever the user had typed in the first time.

Thanks!

Sub Macro1()

Dim sFindThis As String
Dim sDef As String

    sDef = "This is the first-run default string"

    sFindThis = InputBox("User Input: ", "Test Input", sDef)
    
    End If
End Sub

**mohd9876** · 05-05-2011, 08:44 AM

Dear MCCCLXXXV,

yes you can do that if you declare the variable sDef as static like this:

Sub Macro1()

Dim sFindThis As String
Static sDef As String

    If sDef = "" Then
        sDef = "This is the first-run default string"
    End If

    sFindThis = InputBox("User Input: ", "Test Input", sDef)
    sDef = sFindThis 
End Sub

hope it helps