Formularios intermitentes

Hola expertos. Quisiera que me ayudaran, bueno antes que nada saber si es posible, hacer intermitentes dos formularios. He colocado en un modulo algo de codigo como este
Public INTERVALO, TPP, TSO, TT As Date
'TPP ES TIEMPO DE PANTALLA PRINCIPAL
'TSO TIEMPO DE STATUS, TT TIEMPO TOTAL
Private Sub CONTADOR()
If Time < TPP Then
UserForm1.Show
FormStatus.Hide
Else
If Time < TSO Then
UserForm1.Hide
FormStatus.Show
End If
End If
If TT = 0 Then TT = TT + TimeValue("00:00:01")
INTERVALO = Now + TimeValue("00:00:01")
Application.OnTime INTERVALO, "CONTADOR"
End Sub
Y en uno de los formularios como el siguiente
UserForm1.Show
Application.OnTime INTERVALO, "CONTADOR", False
TPP = Time + CDate(Hoja1.Cells(1, 1))
TSO = TPP + CDate(Hoja1.Cells(2, 1))
TT = CDate(Cells(1, 1)) + CDate(Cells(2, 1))
INTERVALO = Now + TimeValue("00:00:01")
Application.OnTime INTERVALO, "CONTROLADOR"
Los valores de las celdas son: 12:00:15 y 12:00:10
Espero que me puedan ayudar, gracias.