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

"Elena" wrote in message
...
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 --------------------