Error message
this is the line of code it refers to...
Cells.FindNext(After:=ActiveCell).Activate
thank you
"gav meredith" wrote in message
...
....and once again the problem presents itself. I apologise for the
confusion. It appears when there is a large qty of data to copy, the error
occurs.
Any ideas???
Thanks all!!!!
"gav meredith" wrote in message
...
please ignore this post, the problem has been rectified!!
Cheers!!!!
"gav meredith" wrote in message
...
Hi,
I have encountered a problem with the following code and am receiving
this
message - object variable or with block variable not set. Can someone
advise??
Private Sub CommandButton1_Click()
Sheets("quote2").Range("appendix").Copy
Sheets("contract").Select
Cells.FindNext(After:=ActiveCell).Activate
Cells.Find(What:="appendix", _
After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End Sub
|