Hi,
Ignore my previous post. I got it working by changing this..
set shDest = ThisWorkbook.Sheets.Add Befo=Worksheets(1)
to this..
set shDest = ThisWorkbook.Sheets.Add (Befo=Worksheets(1))
And now it is working prefectly.
Many thanks to all who replied. My knowledge of VBA is now gettin
bigger!!!
Regards,
Bhares
--
Message posted from
http://www.ExcelForum.com