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