Invalid reference Error

[maheshrk81]

Hi Team,

While running the below Macro, I am getting the below error. This was working fine and suddenly stopped. Can someone help please.

Sub CopyPaste()

Application.ScreenUpdating = False
Sheets("EDL Input").Select <--- Getting Error Here
Range("A2:D2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A2").Select
Sheets("Load Data").Select <--- Getting Error Here
Range("B2:E2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("EDL Input").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F2").Select
ActiveWorkbook.Save
End Sub

Thanks,
M

 

[maheshrk81]

Hi All,

I updated the code with Declaring the worksheets and it worked well.

Sub CopyPaste()

Dim wb As Workbook
Dim ws As Worksheet
Dim wss As Worksheet

Application.ScreenUpdating = False
Set wb = ActiveWorkbook
Set wss = Sheets("EDL Input")
wb.Activate
wss.Select
Range("A2:D2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.ClearContents
Range("A2").Select
Set wb = ActiveWorkbook
Set ws = Sheets("Load Data")
ws.Select
Range("B2:E2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Set wb = ActiveWorkbook
Set wss = Sheets("EDL Input")
wb.Activate
wss.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F2").Select
ActiveWorkbook.Save
End Sub

Thanls,
M