Try this:
Code:
Private Sub cmdProcess_Click()
Dim ary(0, 14) As Variant
Sheets("Form").Unprotect Password:="000"
With Me
ary(0, 0).Value = .TextBox1.Text
ary(0, 1).Value = .TextBox2.Text
ary(0, 2).Value = .TextBox3.Text
ary(0, 3).Value = .TextBox4.Text
ary(0, 4).Value = .TextBox5.Text
ary(0, 5).Value = .TextBox6.Text
ary(0, 6).Value = .TextBox7.Text
ary(0, 7).Value = .TextBox8.Text
ary(0, 8).Value = .TextBox9.Text
ary(0, 9).Value = .TextBox10.Text
ary(0, 10).Value = .TextBox11.Text
ary(0, 11).Value = .ComboBox1.Text
ary(0, 13).Value = .TextBox12.Text
ary(0, 14).Value = .TextBox13.Text
End With
Sheets("Form").Range("a65536").End(xlUp).Offset(1, 0).Resize(1, 15).Value = ary()
Sheets("Form").Protect Password:="000"
Sheets("SWMS").Range("a65536").End(xlUp).Offset(1, 0).Resize(1, 15).Value = ary()
MsgBox "SWMS Processed"
End Sub
Bookmarks