Msg Box That States "Macro is Running" and drops when Marco is finished running

Hi VBA Gurus!

I would like to add to my module a MSGBOX that the "Macro is Running" before my subroutine and stops when the marco is completed. The below code works, but, when my Macro is done, the "Macro Working" MSG does not drop. Maybe it is because the "Application.StatusBar=False it ticked? or is there another way to write this?


Sub myMarcoRunningMSG()
With ActiveWindow
'If user works on Sheet, stop code & clear display.
Application.StatusBar = "Marco Working"
'Application.StatusBar = False
End With
End Sub


Thank you for your help!!

Hi Jeff,

Many Thanks for your assistance with this. Below is the code, a basic copy and paste columns macro:

CODE:

'Get lrow
lrow = Worksheets("Master").Range("C1").End(xlDown).Row


'Code to Copy
For i = 2 To lrow
If Worksheets("Master").Cells(i, 33).Value = "" Then
Worksheets("Master").Cells(i, 33).Value = Worksheets("Copy Sheet").Cells(i, 29).Value
End If

If Worksheets("Master").Cells(i, 38).Value = "" Then
Worksheets("Master").Cells(i, 38).Value = Worksheets("Copy Sheet").Cells(i, 33).Value
End If

If Worksheets("Master").Cells(i, 39).Value = "" Then
Worksheets("Master").Cells(i, 39).Value = Worksheets("Copy Sheet").Cells(i, 34).Value
End If

If Worksheets("Master").Cells(i, 40).Value = "" Then
Worksheets("Master").Cells(i, 40).Value = Worksheets("Copy Sheet").Cells(i, 35).Value
End If

If Worksheets("Master").Cells(i, 45).Value = "" Then
Worksheets("Master").Cells(i, 45).Value = Worksheets("Copy Sheet").Cells(i, 38).Value
End If

If Worksheets("Master").Cells(i, 46).Value = "" Then
Worksheets("Master").Cells(i, 46).Value = Worksheets("Copy Sheet").Cells(i, 39).Value
End If

Next i

MsgBox "Copied Columns from Copy Sheet to Master Marco Finished"

End Sub

CODE

Thank you,

Hi Jeff,

Apologies for misunderstanding. I have reduced the file size in order to upload, please note attached.

Thanks Jeff! Let me check it out. I have not, yet, moved to the status bar ,, but looking to!