How to highlight taskbar at the bottom of the screen

[pxcpyc]

I have an Excel vba program that creates /opens another Excel file that stores the data generated by my program. The 2 workbooks are open at the same time. When the program has completed its action, a worksheet in the data file is displayed, but the button that is highlighted in the taskbar at the bottom of the screen is the program button.

To return to a worksheet in the program workbook, I have to click on another program button in the task bar then the button for the program. In practice, I usually finish up clicking multiple buttons/programs before I get where I want.

I have tried to overcome this with the following code at the end of my modules:

Application.Workbooks(ProgramName).Activate
Application.ScreenUpdating = True
Application.Workbooks(XLFileName).Activate

The problem with this approach is that I get screen jump each time, and it is very annoying after a few hundred times.

Can anyone suggest a better fix?

thanks

(XP and Excel 2007)

 

[pxcpyc]

I have added Status bar progress messages to my program and that has fixed the problem eg:

'Status bar progress message
Application.StatusBar = "Save Program ..."
....
vba code
....
'Return control of the status bar to the program
Application.StatusBar = False

'''''To highlight the correct Taskbar button at the bottom of the screen, I have had to add the following 2 Activate lines, 1
'''''either side of the Screen update.
''''Application.Workbooks(XLFileName).Activate

'Screen updating reset
Application.ScreenUpdating = True

''''Application.Workbooks(ProgramName).Activate