>>110
For eachで全シート回してるならActivateしなくても、
sh.Range("A1")で行けないか?