Hi Filips,
This is the codeline that trigger the error
MsgBox iRow ' shows a correctly the rowNr before the error
WS.Cells(iRow, 1).Value = "Tokyo"
After a hole day of looking, testing, stress i'm totally stuck!
Are you sure Sheets(1) is a worksheet and not some other sheet, like a
chart or a dialogsheet?
Or maybe Sheets(1) is protected?
Regards,
Jan Karel Pieterse
Excel MVP
www.jkp-ads.com