Hi Mick
Thank you for replying, have been looking at this all morning in the
hope of finding an answer.
I use Macro's so infrequently that I get a little mixed up when I try
anything complicated.
I do recall Ron Bruins page from past and his was the one of the first
I turned to except that he now seems to have updated his examples and
also uses Excel 2007 - I am on 2003.
The delete sheet is useful and whilst I have found similar examples
over the net the problem I am having is getting to move the row to a
different sheet AND loop through various sheets.
Here is a loop I found which I think may be suitable for the looping
part, now to find the other bits.


Sub looparray()
Dim sh As Worksheet
For Each sh In Sheets(Array("Sheet2", "Sheet6", "Sheet10"))
MsgBox sh.Range("a1")
Next
End Sub

Kind Regards

Angelo