Paste Error

[Marishah Warren]

This is a code stored in my Personal.Xls:

wb.Worksheets(1).Range("C5").Select
ActiveSheet.Paste

When I run the below code, I get the debug error "Paste
method of worksheet class failed" on the above part of the
code. What should I do to get it to not give me this
error?

Dim wb As Workbook
If MsgBox("Would you like to Import Data?", vbYesNo) =
vbNo Then
Exit Sub
End If
On Error Resume Next
Set wb = Workbooks("Stats Manager.xls")
On Error GoTo 0
If wb Is Nothing Then Set wb = Workbooks.Open("P:\Stats
Manager.xls")

With Worksheets(1)
Set rng = .Range("A4:Z100")
Set rng1 = .Range("A4:AZ4")
End With
res = Application.Match("Ext", rng1, 0)
If Not IsError(res) Then
Set rng2 = rng1(1, res)
rng.Sort Key1:=rng2, Order1:=xlAscending, _
Header:=xlYes, OrderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom
End If

wb.Worksheets(1).Range("C5").Select
ActiveSheet.Paste

Range("B5:AZ100").Select
Range("AZ5").Activate
With Selection
.HorizontalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.ShrinkToFit = False
.MergeCells = False
End With
Range("A2:AZ3").Select

MsgBox "Data Imported Successfully!", vbOKOnly

If MsgBox("Would you like to Save Workbook?", vbYesNo) =
vbNo Then
Exit Sub
End If
ActiveWorkbook.Save

 

[Bill Manville]

What should I do to get it to not give me this
error?

Either Copy something into the clipboard before you get to the Paste
statement or remove the Paste statement.

Currently, I guess, there is nothing in the clipboard for it to paste.

Bill Manville
MVP - Microsoft Excel, Oxford, England
No email replies please - reply in newsgroup