currenly I have the below in a macro I would like to replace the input box (labeled whos_range) with a drop down list to click on and expand the list as need, any help is greatly appreciated. This code is in a userform.
Also any code I post is modified from a search on this forum so thank you if you notice something you wrote.
entire macro not included
Also any code I post is modified from a search on this forum so thank you if you notice something you wrote.
Code:
Private Sub CatchAll_Click()
Dim prompt, Whos_range
Dim Prompt2, which_way
Dim Prompt3, what_sheet
Dim csh As Variant
Dim psh As Variant
Dim strWsToOpen As Variant
prompt = "Update Who"
Prompt2 = "copy to or copy from current workbook"
Prompt3 = "what week you pullin"
Dim cs As Worksheet 'copy sheet
Dim ps As Worksheet 'paste sheet
Application.ScreenUpdating = False
Whos_range = InputBox(prompt)
If Whos_range = "" Then
Response = MsgBox("Use a name so your sheet is not ruined", vbOKOnly & vbCritical, "Selection Error")
Exit Sub
End If
which_way = InputBox(Prompt2)
If which_way = "" Then
Response = MsgBox("GOT TO KNOW A DIRECTION TO OR FROM", vbOKOnly & vbCritical, "Selection Error")
Exit Sub
End If
what_sheet = InputBox(Prompt3)
If what_sheet = "" Then
Response = MsgBox("NEED TO HAVE A SHEET NAME OR IT BLOWS UP", vbOKOnly & vbCritical, "Selection Error")
Exit Sub
End If
strWsToOpen = Application.GetOpenFilename("Excel Files (*.xls), *.xls")
If strWsToOpen = False Then
Response = MsgBox("Need to select a file", vbOKOnly & vbCritical, "Selection Error")
Exit Sub
End If