How about something like:Sub TEST()Dim WhichOne As StringWhichOne$ = InputBox("Enter 1 for Range(""C1"") or 2 for Range(""C2"")", _"Input required")MsgBox WhichOne$End Sub