Visual Basic para Aplicaciones - Error 461 al ejecutar un boton de UserForm (No se encontró el método o el dato miembro)

Private Sub UFOkey_Click()

Dim iFila As Long

Dim ws As Worksheet

Set ws = Worksheets("KPI")

' Encuentra la siguiente fila vacía

iFila = ws.Cells(Rows.Count, 1) _

.End(xlUp).Offset(1, 0).Row

' Copia los datos del formulario a la tabla Excel

ws.Cells(iFila, 1).Value = Me.UFNegocio.Value

ws.Cells(iFila, 2).Value = Me.UFPozo.Value

ws.Cells(iFila, 3).Value = Me.UFEtapa.Value

ws.Cells(iFila, 4).Value = Me.UFGeometria.Value

ws.Cells(iFila, 5).Value = Me.UFCompañia.Value

ws.Cells(iFila, 6).Value = Me.UFCaudalD.Value

ws.Cells(iFila, 7).Value = Me.UFPPAD.Value

ws.Cells(iFila, 8).Value = Me.UFModo.Value

ws.Cells(iFila, 9).Value = Me.UFDiseño.Value

ws.Cells(iFila, 10).Value = Me.UFPunzados.Value

ws.Cells(iFila, 11).Value = Me.UFAcido.Value

ws.Cells(iFila, 12).Value = Me.UFFluidos.Value

ws.Cells(iFila, 13).Value = Me.UFArena.Value

ws.Cells(iFila, 14).Value = Me.UFArenaform.Value

ws.Cells(iFila, 15).Value = Me.UFAisla.Value

ws.Cells(iFila, 16).Value = Me.UFQprom.Value

ws.Cells(iFila, 17).Value = Me.UFOverflush.Value

ws.Cells(iFila, 18).Value = Me.UFPPAFin.Value

ws.Cells(iFila, 19).Value = Me.UFBolita.Value

ws.Cells(iFila, 20).Value = Me.UFSweep.Value

ws.Cells(iFila, 21).Value = Me.UFOcasionSw.Value

ws.Cells(iFila, 22).Value = Me.VolumenSw.Value

ws.Cells(iFila, 23).Value = Me.UFArenamiento.Value

ws.Cells(iFila, 24).Value = Me.UFFlowback.Value

ws.Cells(iFila, 25).Value = Me.UFSOOK.Value

ws.Cells(iFila, 26).Value = Me.UFMallaSO.Value

ws.Cells(iFila, 27).Value = Me.UFPPASO.Value

ws.Cells(iFila, 28).Value = Me.UFComentarios.Value

Unload Me

ActiveSheet.Protect ("ESTINOC")

End Sub