Conograma de mantención

[willy 212]

Hola, espero que me entiendan  tengo un problema en la hoja donde dice planificación, cuando trato de escribir los datos me sale esto " Error de compilación, El tipo de argumento de ByRef no coinciden" , La planilla original es de Macro Antonio y su planilla funciona, pero cuando creo la planilla me arroja este error. Se lo basico de macro y me gusta aprender... saludos !!!!  

Private Sub ListaA_Click()
ActiveCell = ListaA
End Sub

Private Sub ListaB_Click()
ActiveCell = ListaB
End Sub

Private Sub ListaC_Click()
ActiveCell = ListaC
End Sub


b Worksheet_SelectionChange(ByVal Target As Range): On Error Resume Next
'--Private Su
ListaA.Visible = False
ListaB.Visible = False
ListaC.Visible = False
'--
If Target.Rows.Count > 1 Or _
   Target.Columns.Count > 1 Or _
   Target.Row = 1 Then
   Exit Sub
End If
'--
Select Case Target.Column
   Case 1
      ListaA.ListFillRange = "Proyectos!A2:A" & Sheets("Equipos").Range("A" & Rows.Count).End(xlUp).Row
      MostrarLista ListaA, Target
      ListaA = Target
   Case 2
      LlenarLista ListaB, Sheets("Series x Equipos")
      MostrarLista ListaB, Target
   Case 3
      LlenarLista ListaB, Sheets("Tarea x Equipos")
      MostrarLista ListaB, Target
   Case Else
      If Calendario.Visible = True Then Unload Calendario
      If UCase(Cells(1, Target.Column)) Like "*FECHA*" And _
         Target.Row > 1 And _
         Target.Cells.Count = 1 And _
         IsEmpty(Target.Offset(0, -1)) = False Then
         Calendario.Top = ActiveCell.Top + 160
         Calendario.Left = ActiveCell.Left + 18
         If Calendario.Visible = False Then Calendario.Show
      End If

End Select
'--
End Sub

 

Mantención de equipos.xlsm