Llistbox Data Edit from Other userform

Please help

I am trying to update the data by clicking the Listbox,but getting error,
"Run time error 70 could not set the column property permission denied"
Below is code in which I am getting this error.

Private Sub cmdClose_Click()
Unload Me
End Sub

Private Sub ListBox1_Click()
If Changeflag = True Then Exit Sub
Dim say As Long, A As Byte, r As Long
Dinfo1 = ListBox1.List(ListBox1.ListIndex, 0)

For A = 1 To 6

Next

Sheets("Data").Range("A:A").Find(ListBox1.Text).Activate
say = ActiveCell.Row
Sheets("Data").Range("A" & say & ":I" & say).Select
TextBox1 = ListBox1.ListIndex + 1
End Sub


Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

UserForm2.Info1.Text = Me.ListBox1.Column(0)
UserForm2.Info2.Text = Me.ListBox1.Column(1)
UserForm2.Info3.Text = Me.ListBox1.Column(2)
UserForm2.Info4.Text = Me.ListBox1.Column(3)
UserForm2.Info5.Text = Me.ListBox1.Column(4)
UserForm2.Info6.Text = Me.ListBox1.Column(5)

UserForm2.Show

End Sub



Private Sub SaveEdit_Click()

UserForm1.ListBox1.Column(0) = Me.Info1.Text
UserForm1.ListBox1.Column(1) = Me.Info2.Text
UserForm1.ListBox1.Column(2) = Me.Info3.Text
UserForm1.ListBox1.Column(3) = Me.Info4.Text
UserForm1.ListBox1.Column(4) = Me.Info5.Text
UserForm1.ListBox1.Column(5) = Me.Info6.Text

End Sub

Thank you in advance for your help and support

Kirana