Hi the

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