Teno la siguiente macro pero me error 1004 por que puede ser.

La macro  es para cuando encuentre una X en las celdas  b9:b200 oculte las filas que contienen una X

 

Sub ocultarfilas_FRIO_NO_TALLER()
'
'
'
ActiveSheet.Unprotect

For Each celda In Range("b9:b200")
If celda.Value = x Then
ActiveCell.EntireRow.Hidden = TrueElse
ActiveCell.EntireRow.Hidden = False

End If
ActiveCell.Offset(1).Select
Next

ActiveSheet.Protect

End Sub

 

Sub ocultarfilas_FRIO_NO_TALLER()

ActiveSheet.Unprotect

For Each celda In Range("B9:B200")
   If celda.Value = "x" Then
      celda.EntireRow.Hidden = True
   Else
      celda.EntireRow.Hidden = False
   End If
Next

ActiveSheet.Protect

End Sub

 

Macro no probada por carecer de archivo para ello.

 

.

ok Funciona muchas gracias