DSCR Error

[Guest]

We have an error that is suddenly coming up in our application.

After we Run ALL Macros, we receive two errors:

First there is a runtime error that states:
Appilication Error
The message filter indicated that the application is busy.

The second message state:
File in Use
MACROS.XLS is locked for editing
by 'DSCR'

Open 'Read Only' or Click 'Notify; to open read-only and receive
notification whne the document is no longer in use.


This is a new error for the database users. We're not sure what it stems from.

Any advice would be greatly appreciated.

Thanks in advance!
~Elena

 

[NickHK]

Elena,
Do you think you step through the code and give a hint where the error
occurs ?
Also, it would greatly shorten your code if you deleted all the irrelevant
code that the macro recorder generates:
e.g. Select, properties that remain at the default values, tidy up the
Withs, etc

Also you have many occurences of:
Columns("A:A").ColumnWidth = 5.71
Columns("A:A").EntireColumn.AutoFit

Presumably you want the AutoFit not 5.71.

"DSCR" appears to be something connected with financial services.

NickHK

Here's the Code. It's lengthy. Thanks

Sub OPEN_PR_REPORT_FORMATTING_TOOL()
'
' OpenPr Macro
' Macro recorded 9/28/2004 by Evansdc

Dim MYSHEET As Worksheet

For Each MYSHEET In Worksheets
If Left(MYSHEET.Name, Len("OPEN_PRS")) = "OPEN_PRS" Then
MYSHEET.Name = "OPEN_PRS"
End If
If Left(MYSHEET.Name, Len("REPLEN_PRS_ALT")) = "REPLEN_PRS_ALT" Then
MYSHEET.Name = "REPLEN_PRS_ALT"
End If
If Left(MYSHEET.Name, Len("PRECONTDEL")) = "PRECONTDEL" Then
MYSHEET.Name = "PRECONTDEL"

-------------- CODE SNIPPED --------------------