Conflictos con una macro

Estimados, tengo una macro para ocultar filas que me funciona en archivo limpio pero cuando la hago correr dentro de un archivo con otras macro me pega el archivo y no puedo ni siquiera ingresar un dato se las dejo para que la revisen realmente no se que pasa

Private Sub Worksheet_Calculate()
activa = ActiveCell.Address
If Range("f4") = "Verdadero" Then
Rows("5:6").Select
Selection.EntireRow.Hidden = True
Else

Selection.EntireRow.Hidden = True
End If
Range(activa).Select
End Sub