Open File and Input with Mouse in same VBA

[aschaak]

I want to open an existing file and prompt the user to use the mouse to indicate where previously selected material should be posted.

My code is

Dim rRange as Range
Dime OpenFileUpdate as String, OpenFile as String, CurWks as String


Windows("CashWorksheet.xlsm").Activate
OpenFileUpdate = Sheets("FileList").Range("H28").Text
OpenFile = Sheets("FileList").Range("H20")
CurWks = Sheets("FileList").Range("H40")

Workbooks.Open filename:=OpenFile

Windows(CurWks).Activate
Sheets("WFCash").Select

Set rRange = Application.InputBox(Prompt:= _
"Please select a cell with your Mouse where Wells Fargo transactions should be inserted.", _
Title:="SPECIFY RANGE", Type:=8)

My problem is the prompt appears on a grey screen. Excel does not open the workbook and does not show the user the data.

This happens when the macro is run. When I step through the code, the display is fine.

I have tried Sleep/Wait to no avail.

I would sincerely appreciate any ideas.