Error 9 en tiempo de ejecución VBA
Tengo el siguiente código:
Sub Ingresar_Click()
If region.Value = "" And inc.Value = "" And nombre = "" And empresa = "" And puesto = "" And inicio = "" And fin = "" Then
MsgBox "Debe llenar todos los espacios", vbInformation + vbOKOnly
region.SetFocus
Exit Sub
Else
Application.ScreenUpdating = False
Sheets("Detalle_incapacidades").Select
Range("A" & Cells.Rows.Count).End(xlUp).Offset(1).Select
ActiveCell = region.Value
ActiveCell.Offset(0, 1) = inc.Value
ActiveCell.Offset(0, 2) = cedula.Value
ActiveCell.Offset(0, 3) = nombre.Value
ActiveCell.Offset(0, 4) = empresa.Value
ActiveCell.Offset(0, 5) = puesto.Value
ActiveCell.Offset(0, 6) = inicio.Text
ActiveCell.Offset(0, 7) = fin.Text
ActiveCell.Offset(0, 9) = tipo.Value
ActiveCell.Offset(0, 10) = forma.Value
ActiveCell.Offset(0, 11) = fecha_recepcion.Value
ActiveCell.Offset(0, 13) = foto.Picture
ActiveCell.Offset(0, 14) = encargado.Value
region = Empty
inc = Empty
cedula = Empty
nombre = Empty
empresa = Empty
puesto = Empty
inicio = Empty
fin = Empty
tipo = Empty
forma = Empty
fecha_recepcion = Empty
foto.Picture = LoadPicture("")
encargado = Empty
ActiveWorkbook.Save
region.SetFocus
End If
Sheets("menu").Select
Application.ScreenUpdating = True
End Sub
Lo marcado en negrita me da el error en tiempo de ejecución, reviso, y la hoja se llama de la misma forma a como sale en el código, y aún asi me da el error, ya probe volverlo a escribir y nada.
Si me pudieran ayudar a verificar, si algo esta mal.