VBA problem ze zmiennymi

Witam
Mam problem z napisanym kodem:

W module1

Public vba As Worksheet
Public Lp As Integer

Sub zmienne()
    Set vba = Sheets("Arkusz1")
    Lp = vba.Range(A1")
End Sub

W UserForm

Private Sub Dodaj_Click()
    vba.Cells(Lp, 10).Value = TextBox1.Value    
    Unload Me
End Sub

Private Sub UserForm_Initialize()
    Call zmienne
End Sub

przy wywołaniu "Dodaj_Click" pojawia się komunikat: Method or data member not found.
Jeżeli zamienię

vba.Cells(Lp, 10).Value = TextBox1.Value

na

Sheets("Arkusz1").Cells(Lp, 10).Value=TextBox1.Value

to jest ok.
Nie rozumiem, dlaczego nie widzi zmiennej obiektowej VBA, natomiast zmienną Lp już tak.

Proszę o pomoc, kogoś bardziej pojętnego niż ja.

Masz pecha. Nazwałeś zmienną tak jak nazwa biblioteki. Zmień VBA na coś innego, a zadziała... :)

2 godziny walki rozwiązane w 5 s.
Dzięki kolego!
Pozdrawiam serdecznie.