UserForm to input data into sheet(s)

[Shea2288]

I have a ListBox that gets its values from each sheet name within my workbook (See picture). I would like to fill in the text boxes and have the Submit button enter the data into the selected sheets from the listbox. It could be only one sheet selected or it could be all depending on the situation. I need the program to look for the next available row and insert the data. I hope I explained that in a decent way. Thanks in advance.

[mehmetcik]

Private Sub CommandButton1_Click()
ALR = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1

For Count = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(Count) = True Then
LR = Sheets(Count + 2).Cells(Rows.Count, 1).End(xlUp).Row + 1
For TCount = 1 To 4
Sheets(1).Cells(ALR, TCount).Value = Me.Controls("Textbox" & TCount).Value
Sheets(Count + 2).Cells(LR, TCount).Value = Me.Controls("Textbox" & TCount).Value
Next
Sheets(1).Cells(ALR, 5).Value = ListBox1.List(Count)
ALR = ALR + 1
End If
Next
End Sub