MACRO keeps falling out

[VBA_Newbie1981]

Hi,

I am new to Macros. Have written this simple macro but it keeps falling out at the line in RED? any suggestions?

Sub GlassMacro1()
'
' GlassMacro1 Macro
' Add Sheets & put them in order
'
'
    Sheets("Sheet1").Name = "Raw Data DB Viewer"
    Sheets("Sheet2").Name = "Working Data DB Viewer"
    Sheets("Sheet3").Name = "Peoplesoft Download"
    Sheets("Sheet4").Select
    Sheets("Sheet4").Name = "Reconciliation"
    Range("C38").Select
    Sheets("Raw Data DB Viewer").Select
    Cells.Select
    Selection.Copy
    Sheets("Working Data DB Viewer").Select
    ActiveSheet.Paste
    Sheets("Raw Data DB Viewer").Select
    Range("A1").Select
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "COMP ID"
    Range("A1").Select
    Sheets("Raw Data DB Viewer").Select
    Sheets("Raw Data DB Viewer").Move After:=Sheets(4)
    Sheets("Reconciliation").Select
    Sheets("Reconciliation").Move Before:=Sheets(1)
    Sheets("Working Data DB Viewer").Select
    Range("A1").Select
End Sub

 

[RoryA]

Welcome to the forum.

What does "falling out" mean? If you're getting an error, what is the error message?

 

[VBA_Newbie1981]

The error message is as follows:

Run-time error '9':

Subscript out of range

Then when I open the DeBug tool - the line at which the problem lies is the line in my original post that is Red (from my understanding)

 

[RoryA]

That means that there isn't a sheet called Sheet2 in the active workbook.

 

[JackDanIce]

That error is raised because you do not have a sheet named Sheet2

 

[VBA_Newbie1981]

Ok so how do I fix my macro? is there a specific way my code should be written to add a new sheet and then rename the new sheet?

 

[RoryA]

You can do this:

Sheets.Add.Name = "Working Data DB Viewer"

 

[VBA_Newbie1981]

perfect. thanks!