Error al seleccionar un registro en un formulario

Buenos días

Tengo un Formulario para modificar los datos de una tabla, pero al Seleccionar un Registro, me aparece el mensaje de: Error de compilación”. Se esperaba function o una variable.

Me pueden ayudar? Éste es el formulario:

'Cerrar formulario

Private Sub CommandButton2_Click()

Unload Me

End Sub

'Abrir el formulario para modificar

Private Sub CommandButton3_Click()

If Me.ListBox1.ListIndex < 0 Then

   MsgBox "No se ha elegido ningún registro", vbExclamation, "EXCELeINFO"

Else

UserForm3_Modificar_V.Show

End If

End Sub

'Eliminar el registro

Private Sub CommandButton4_Click()

Pregunta = MsgBox("Está seguro de eliminar el registro?", vbYesNo + vbQuestion, "EXCELeINFO")

If Pregunta <> vbNo Then

   fila = Me.ListBox1.ListIndex + 2

   Rows(fila).Delete

Application.ScreenUpdating = True

End If

End Sub

'Activar la celda del registro elegido

Private Sub ListBox1_Click()

fila = Me.ListBox1.ListIndex + 2

For i = 1 To 22

   Cells(fila, 1).Activate

Next i

End Sub

'Dar formato al ListBox y traer datos de la tabla

Private Sub UserForm_Initialize()

With ListBox1

   .ColumnCount = 22

   .ColumnWidths = "60 pt;60 pt;70 pt"

   .ColumnHeads = True

End With

ListBox1.RowSource = "Modificar_Datos"

End Sub

Saludos