Macro para Selecionar Hojas

Buenas tardes,

Tego un documento de 1000 hojas y nesecito que cada una
de las hojas quede en un documento a parte. Por el
momento lo estoy realizando Selecciono la Hoja, Corto el
Texto, creo un nuevo documento, pego el Texto, le doy
guardar como, cierro el nuevo documento y continuo así
hasta terminar con las 1000 hojas.

Por favor necesito ayuda... muchas gracias.