Excel tip: Show the progress of your macro's

Sub DisplayProgressInStatusbar()
' Show an "in progress" message

' Makes sure that the statusbar is visible.
      Application.DisplayStatusBar = True

      ' Enter your message for the statusbar:
      Application.StatusBar = "Now processing...."

      ' -* Add your code here *-

      ' When your code is finished, reset the statusbar:
      Application.StatusBar = False
End Sub

Sub ShowProgressInLoop()
' Show the progress in a loop

      Dim rngCel                             As Range
      Dim lCounter                           As Long
      Dim lTotal                             As Long
      lTotal = Selection.Cells.Count            ' total amount of cells to walk through

      ' Makes sure that the statusbar is visible.
      Application.DisplayStatusBar = True

      For Each rngCel In Selection
            ' show the progress in the statusbar:
            Application.StatusBar = "Processing cell " & rngCel.AddressLocal & _
                                    "    " & Format((lCounter / lTotal), "0%")

            ' do something
            ' -* Add your code here *-

            ' update the counter
            lCounter = lCounter + 1
      Next rngCel


      ' When your code is finished, reset the statusbar:
      Application.StatusBar = False
End Sub