Change the SHELL statement to KILL
Replacement instructions "If Else" on the "Select Case"
Removal instructions "SHELL"

Acceleration of report generation