Start value of dropdown

[Belthazor4]

Hello, i have a dropdown on the list, i created it with
Sht.DropDowns.Add()

it has a property .OnAction = "ch_vall" , which change the value of the some cell to the value of chosen list item:
Private Sub ch_val()
With ActiveSheet.DropDowns(Application.Caller)
Sht.Cells(1,1l) = CStr(.List(.ListIndex))
End With
End Sub

PLs, help me: How i can set automatically the value of the dropdown with calling .OnAction procedure

P.S. sorry for my english =)

 

[Belthazor4]

Maybe the question isn't concrete?