runtime error 70 when try to add item to listbox

Hi,


pls go through the below mentioned code.

Private Sub cmdnewgener_Click()
    If newgener.Value <> "" Then
   generlst.AddItem newgener.Value  ----> error 70 - permission denied
        Sheet2.Range("a12").End(xlDown).Offset(1, 0).Value = newgener.Value
      
        newgener.Value = ""
    End If
End Sub

pls help


thank you in advance


regards
shiva

Can you post example file for testing?

Most likely RowSource is set on initializing.

No file attached so far.

Remove the RowSource from the ListBox properties and add following code.

Private Sub UserForm_Initialize()
    genrelst.List = Sheet2.Cells(1).CurrentRegion.Value
End Sub