Filtrar conforme a nombre de hojas

buenas tardes..

de nuevo aquí estoy tratando de aprender un poco y me gustaría me ayudaran a realizar una macro que realize lo siguiente:

que se posicione en una hoja y tome el nombre de esta para filtrar información y me elimine todo lo que no sea igual, después se pase a la siguiente hoja y haga lo mismo asi asta pasar por todas las hojas, cabe señalar que las hojas varían un dia puede ser 5 hojas otros 10 etc etc...

me parece que se realiza con la función loop y do while pero todavía no se utilizar mucho esa instrucción por tal motivo pido de su ayuda

gracias