Borrar determinadas hojas del libro activo

[Enid86]

Buenas!! ?

A ver quién puede ayudarme, tengo un libro con más de 100 hojas y quiero que se borre el contenido de todas, menos de dos hojas concretas ("GS" y "Macros") a partir de la celda A3.

Me parece que debería ser muy sencillo, pero el código me da error 13 no coinciden los tipos (línea 5?

1. Sub Botón4_Haga_clic_en()
2. Dim hoja As Worksheet
3.  
4. For Each hoja In Application.Worksheets
5.     If hoja.Name <> "GS" Or "Macros" Then
6.         hoja.Range("A3:G6000").Clear
7.     End If
8. Next hoja
9.  
10. End Sub

He probado declarando las hojas que quiero proteger como worksheet y comparando con If hoja.Name <> GS.Name Or Macros.Name Then, pero tampoco funciona.. ?

A ver si alguien puede ayudarme, pleeeaseee... GRACIAS!  ?

[Antoni]

If hoja.Name <> "GS" And <> "Macros"  Then

[Enid86]

Muchas gracias, Antoni!!! 

No te imaginas el ataque de risa que me ha dado al ver tu respuesta.... No sé cómo no me di cuenta, era tan simple...?

Ahora estoy peleándome con una Matriz.... Llevo tres días sin parar...?

Gracias de nuevo! ?