How to show MsgBox only once Query has finished refreshing

[HomeTek]

Hi,

I have some code that refreshes a query and connection. At the end of the code I have a simple message box that states that the data has finished refreshing.

The problem is that this message box comes up before the data has finished refreshing.

Do you know if there is any way for the MsgBox part of the code not to run until the refresh has completely finished?

Thanks

 

[maabadi]

Please upload Code.

 

[HomeTek]

Please upload Code.

Sub Refresh_Queries()

MsgBox "Data will now be refreshed."

Application.ScreenUpdating = False

ActiveWorkbook.Connections("Raw Data").Refresh

Application.ScreenUpdating = True

MsgBox "Date import completed."

End Sub