Visual Basic erro no vba - excel, que não estou entendendo

[Marquinhos Rolemã]

sempre que clicom em registrar no formulario que fiz, aparece o seguinte erro, que estou boiando!

 

private sub dataft_click()
dataf = getcalendário(dataf)
end sub

private sub datait_click()
datai = getcalendário(datai)
end sub

private sub datat_click()
dataa = getcalendário(dataa)
vp.setfocus
end sub



private sub reg_passagemb_click()

range("f4").select
    selection.listobject.listrows.add (2)
linhaps 4
cells(linhaps, 6) = dataa.value
cells(linhaps, 7) = pr.value
cells(linhaps, 8) = datai.value + " a " + dataf.value
cells(linhaps, 9) = vp.value

unload reg_passagem
end sub

private sub reg_passagemi_click()
range("f4:i4").select
    selection.listobject.listrows.add (2)
linhaps 4
cells(linhaps, 6) = dataa.value
cells(linhaps, 7) = pr.value
cells(linhaps, 8) = datai.value + " a " + dataf.value
cells(linhaps, 9) = vp.value

unload reg_passagem
end sub

private sub userform_initialize()
dataa = date
ult_linha_nome = sheets("dados").range("b4").end(xldown).row
pr.rowsource = "dados!b4:b" & ult_linha_nome


end sub

 

[Midori]

@Marquinhos Rolemã Assim o VBA entende que linhaps é um procedimento com o argumento 4. Faltou o sinal de atribuição (igual) já que linhaps é uma variável.

[Marquinhos Rolemã]

@Midori muito obrigado, sei que o foi tipo uma pergunta besta mas obrigado, acabei não focando direito.