Rename sheet - throws Out of memory error

[adr12345]

Below code gives me out of memory error.

Workbooks("Sheets1").Activate
Worksheets.Add before:=Sheets("Sheets1")
ActiveSheet.Name = "ABC"


I have added below lines to my code in order to free memory

Application.DisplayAlerts = False
Application.CutCopyMode = False
Application.ScreenUpdating = False


Please suggest.

 

[wideboydixon]

Are you getting "Out of Memory" or "Subscript out of range"?

The first line is looking for a workbook called "Sheets1"
The second line relies on having a worksheet in that workbook called "Sheets1"

I suggest that you don't have a workbook called "Sheets1" and that perhaps your worksheet is called "Sheet1" which would be normal for Excel.

WBD