Cambiar macro comparando datos

Hola tengo esta macro que me compara los datos en las celdas y me rellena con datos pero me ha surgido un error la macro me compara si el campo esta vacío pero me he encontrado que por ejemplo en la celda av2 solo puede ir si o no si esta llena con si pues se deja asi si esta llena con no se deja asi si esta basia se llena con no pero si la celda tiene un dato diferente a si vacío o no se debe cambiar por no ejemplo si la celda tiene so se debe poner no y asi con las demás comparaciones en el ejemplo de ab deben de ir solo 1111111 y hay celdas que tienen 1111111111 o 111 entonces como es la condición que valide que solo deben de ir 1111111 gracias por su ayuda

Sub Llamacambiar()
libro1 = ActiveWorkbook.Name
For Each wb In Workbooks
wb.Activate
If wb.Name <> libro1 Then
Range("AV2:AV20").Replace What:="", Replacement:="NO", _
LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("AB2:AB20").Replace What:="", Replacement:="1111111", _
LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("AC2:AC20").Replace What:="", Replacement:="EN ARIENDO", _
LookAt:=xlPart, SearchOrder:=xlByRows, _
MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWorkbook.Sabe
ActiveWorkbook.Close
End If
Next
End Sub