Hi,
From reviewing past logs, I see that this is a problem that many have had. Unfortunately, I was not able to apply the previous answers to come up with a resolution. I'm getting the Run-time error '1004' - "PasteSpecial method of Range class failed" error when it hits the last line of code below.
Any ideas what is going on?
Thanks very much for any help.
Regards,
T.J.
CODE:
Workbooks.Open Filename:="S:\Secops Finance\KERRILLBERNIE\TJ\SuperCombinedforAnalysis.xls"
Workbooks("DROP DOWN MASTER LIST.xls").Sheets("Activity List").Copy After:=Workbooks("SuperCombinedforAnalysis.xls") _
.Sheets(1)
Workbooks("DROP DOWN MASTER LIST.xls").Sheets("Activity Log").Range("A1062").Copy
'CODE BLOWING-UP HERE
Workbooks("SuperCombinedForAnalysis").Sheets("SuperCombinedForAnalysis").Range("AL2").PasteSpecial Paste:=xlDataValidation, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
From reviewing past logs, I see that this is a problem that many have had. Unfortunately, I was not able to apply the previous answers to come up with a resolution. I'm getting the Run-time error '1004' - "PasteSpecial method of Range class failed" error when it hits the last line of code below.
Any ideas what is going on?
Thanks very much for any help.
Regards,
T.J.
CODE:
Workbooks.Open Filename:="S:\Secops Finance\KERRILLBERNIE\TJ\SuperCombinedforAnalysis.xls"
Workbooks("DROP DOWN MASTER LIST.xls").Sheets("Activity List").Copy After:=Workbooks("SuperCombinedforAnalysis.xls") _
.Sheets(1)
Workbooks("DROP DOWN MASTER LIST.xls").Sheets("Activity Log").Range("A1062").Copy
'CODE BLOWING-UP HERE
Workbooks("SuperCombinedForAnalysis").Sheets("SuperCombinedForAnalysis").Range("AL2").PasteSpecial Paste:=xlDataValidation, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False