How to shorten code

[daymo]

I am having a problem with trying to locate a way to shorten this code, could anyone please help.

Sheet13.Range("A50").Value = FormMenu.txtName1.Value
Sheet13.Range("A51").Value = FormMenu.txtName2.Value
Sheet13.Range("A52").Value = FormMenu.txtName3.Value
Sheet13.Range("A53").Value = FormMenu.txtName4.Value
Sheet13.Range("A54").Value = FormMenu.txtName5.Value
Sheet13.Range("A55").Value = FormMenu.txtName6.Value
Sheet13.Range("A56").Value = FormMenu.txtName7.Value
Sheet13.Range("A57").Value = FormMenu.txtName8.Value
Sheet13.Range("A58").Value = FormMenu.txtName9.Value
Sheet13.Range("A59").Value = FormMenu.txtName10.Value

thank you
Kindest regards

[Bryan Hessey]

I am having a problem with trying to locate a way to shorten this code, could anyone please help.

Sheet13.Range("A50").Value = FormMenu.txtName1.Value
Sheet13.Range("A51").Value = FormMenu.txtName2.Value
Sheet13.Range("A52").Value = FormMenu.txtName3.Value
Sheet13.Range("A53").Value = FormMenu.txtName4.Value
Sheet13.Range("A54").Value = FormMenu.txtName5.Value
Sheet13.Range("A55").Value = FormMenu.txtName6.Value
Sheet13.Range("A56").Value = FormMenu.txtName7.Value
Sheet13.Range("A57").Value = FormMenu.txtName8.Value
Sheet13.Range("A58").Value = FormMenu.txtName9.Value
Sheet13.Range("A59").Value = FormMenu.txtName10.Value

thank you
Kindest regards

Hi,

untested, but it's something like

Dim myCtr as integer

With Sheets("Sheet13")
for myCtr = 1 to 10
    .Range("A" & 49+myCtr).Value = FormMenu.txtName & myCtr &  .Value
next mtCtr
end With

hth
---