Hello Kirana

in Sub CommandButton5 change this part

For a = 1 To 13 ' Clear textboxes(1-12)
Controls("textbox" & a) = ""
Next
to
TextBox1 = ""
ComboBox2 = ""
For a = 3 To 13 ' Clear textboxes(3-12)
Controls("textbox" & a) = ""
Next
Kind regards
Leo