Macro que realize su función en libro excepto en algunas celdas de hojas

Hola, muy buen día :), bien mi problema es el siguiente: tengo una macro que por el momento funciona para la hoja activa, lo que necesito es que funcione para todo el libro
excepto para aquellas filas donde los datos de la columna "A" coincidan con los datos(nombres) de 2 hojas, también puestos en la columna "A", estas hojas son: "Datos1" y "Datos2" ya que estos datos no deben ser evaluados por esta macro.
Anexo la macro con la cual estoy trabajando:

Sub rellena()
Application.ScreenUpdating = False
On Error Resume Next
Dim strnombrehoja$
strnombrehoja$ = ActiveSheet.Name
Dim uf, fila As Integer
Dim esp, cadena As Date
uf = Sheets(strnombrehoja$).Range("A" & Rows.Count).End(xlUp).Row
fila = 6
While Sheets(strnombrehoja$).Cells(fila, 1) <> Empty
cadena = Sheets(strnombrehoja$).Cells(fila, 15)
esp = InStr(cadena, " ")
dato = Mid(cadena, esp)
dato = Val(dato)
If dato > 0 Then
Sheets(strnombrehoja$).Range("A" & fila & ":O" & fila).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End If
fila = fila + 1
dato = Empty
Wend
Application.ScreenUpdating = True
End Sub

Desde ya, muchas gracias!!