x usare la select in un foglio, il foglio deve essere attivato tramite il metodo activate...

se nn lo vuoi attivare devi fare una roba tipo questa

codice:
dim trg as Range
set trg = application.range(sh.cells(1, 1), sh.cells(65536, 255))
trg.Replace What:=sWhat, Replacement:=sReplace, LookAt:=1, SearchOrder:=1, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
set trg =nothing
fammi sapere se ti dà problemi