Paste Failure

[SimplyErick]

The following code is failing randomly, when I step throught it(f8) the code executes. Any thoughts on why this might be failing?

Dim S as Integer
Dim E as Integer
Dim WBT as WorkBook
Dim WS16C as WorkSheet

WS16C.Range("H" & S & ":H" & E).Copy
With WBT.Sheets("CPC Analysis").Range("C7")
.PasteSpecial
.Activate
ActiveSheet.Paste Link:=True
End With

 

[Joe4]

What are your values of S and E when it fails?
If S was 1, and E was the last possible row on an Excel sheet, then it would cause errors, because pasting it to row 7 would try to paste it 6 rows past the last possible row in Excel.

If this is not what is going on, please let us know the exact error message.