-----------------------------------------------------
Private Sub UserForm_Initialize()
Dim nacti As Worksheet
Set nacti = ThisWorkbook.Worksheets("evidence")
Cx4.RowSource = nacti.Name & "!A4:B" & nacti.Range("A3").End(xlDown).Row
UserForm4.Cx4.SetFocus
End Sub
-----------------------------------------------------citovat