You don't need to select a sheet to write data to it.
SendKeys is not a reliable method.

You can use a loop to work with each worksheet

Code:
--------------------

Dim ws as WorkSheet

For Each ws in ThisWorkBook.WorkSheets
'code for worksheet
Next ws
--------------------


--
royUK

Hope that helps.

RoyUK
------------------------------------------------------------------------
royUK's Profile: http://www.thecodecage.com/forumz/member.php?userid=15
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=25455