macro not running until worksheet is clicked

[norwester]

I am using a macro that checks if an image file has been added to a folder.
The image file comes from a camera that is operated by canon remote shooting software on the same pc.
When I use the remote shooting software to take a photo, the macro calls a second macro that asks to rename the file using an input box.
However that input box does not appear until I click anywhere on the worsheet. If I operate the camera manually then the 2nd macro works fine
but that rather defeats the purpose of operating the camera by the computer.
It seems that by clicking outside of the excel window to operate the camera somehow the second macro is called but does nothing until I click on the excel workbook

this is the first macro
Sub check_files()
'this macro runs in a loop until an image is downloaded to folder temp_canon_images
'when that happens the macro get name is run
temp_image = ""

Do
msg = ""
Set fso = CreateObject("Scripting.FileSystemObject")
Set fils = fso.GetFolder("C:\superkids_digital\temp_canon_images").Files

For Each fil In fils
temp_image = fil.Path 'temp_image contains the file path and file name
Next fil

Loop Until temp_image <> ""
Call get_name
End Sub

this is the second macro
Sub get_name()
Application.ScreenUpdating = True
Workbooks(1).Activate
Cells(4, 8).Select
MsgBox "new photo has ben downoaded"

first_name = InputBox("Enter first name", , "Joe")
surname = InputBox("Enter surname", , "Bloggs")
full_name = first_name + " " + surname

Application.Wait (Now + TimeValue("0:00:5")) 'wait 5 seconds to allow file to be completley downloaded
'this code has to run again because the initial file name is different to the final file name after it is downoaded
Set fso = CreateObject("Scripting.FileSystemObject")
Set fils = fso.GetFolder("C:\superkids_digital\temp_canon_images").Files
For Each fil In fils
temp_image = fil.Path 'temp_image contains the file path and file name
Next fil

old_file = temp_image
new_file = "C:\superkids_digital\named_images\" + full_name + ".jpg"

Name old_file As new_file 'file is renamed and moved to the named images folder
Set fso = Nothing
Stop
End Sub

 

[DanteAmor]

Hi and welcome to MrExcel

Not tested
In the macro "check_files" after this line
temp_image = ""

add this line:
DoEvents

 

[norwester]

I have tried putting doevents in various places but makes no difference tks