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

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

.....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

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