exit sub after insert row

[Xiaoping Yao]

Hi there:

Please help. The following code dosn't work. Similar code worked perfect
in other cases:

Private Sub MovetoClosedLoan()
Dim selr As Integer

'get selected row
selr = Selection.Row

'insert rows
Worksheets("ClosedLoan").Rows(11).Insert

'copy from loanpipeline to closed loan
Worksheets("LoanPipeLine").Rows(selr).Copy
Worksheets("ClosedLoan").Rows(11)

'delete from loanpipeline
Worksheets("LoanPipeLine").Rows(selr).Delete

'end of sub
End Sub

The execution will stop right after 'insert rows. The rest of the code will
not been executed and no error message.

Thanks.

Xiaoping

 

[Guest]

maybe if you step through your macro, you might find execution does not
actually stop. Instead, maybe your code

Worksheets("ClosedLoan").Rows(11)

is missing the paste method?

 

[Guest]

or rather pastespecial if applied to a range and paste if applied to the sheet

 

[Xiaoping Yao]

Checked my previous case involving the same code. Difference is my previous
worksheet doesn't have conditional formating and this one does. Took all
the conditional formating out and the code works perfect. But I do need the
conditional formatting. Seems to me whenever the conditinal formatting is
involved, any of insert and copy method will have trouble. How to get
around with this problem?

Xiaoping