Can not paste to a New spreadsheet

[rthorne]

running Excel 2007. Suddenly, I can not paste from Spreadsheeet1 to a new spreadsheet. No error is given. and copy does go to the clipboard. The Paste button on New SPreadsheet will let me choose actions, but pasting appears.

Appreciate your help

 

[kpark91]

Did you run any macros before hand?

The new worksheet may somehow be protected?

 

[rthorne]

yes I did to Spreadsheet1.

I am new to VBA, so hope I didn't blow anything up

 

[kpark91]

Hmm. It could be because of a macro you have..
Is there any Worksheet_Activate event or anything that has to do with a worksheet event?
If so, could you post the code?

 

[rthorne]

I grabbed the code from a post here.

http://www.mrexcel.com/forum/showthread.php?t=384758&highlight=Cmpare

I just changed the columns to review for dupes.

Sub Cmpare()
Dim ws1 As Worksheet, ws2 As Worksheet, ws3 As Worksheet
Dim i As Long, j As Long, LR As Long
Set ws1 = Sheets("Sheet1")
Set ws2 = Sheets("Sheet2")
Set ws3 = Sheets.Add
With ws1
LR = .Range("E" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
If IsNumeric(Application.Match(.Range("E" & i).Value, ws2.Columns("A"), 0)) Then
j = j + 1
.Rows(i).Copy Destination:=ws3.Range("A" & j)
.Rows(i).Delete
End If
Next i
End With
End Sub