[Solved] In main sheet there is 800 names(A1:A800). Each cell should go to different sheet with an order. First cell to first sheet etc [closed]

by


If I am seeing what you are trying to do, it shouldn’t be too hard.
You could hardcode a for loop to 800.

for i = 2 to 800
    Range("A"&i).Copy Destination:=Sheets(i).Range("A" & i)
next

This is similar albeit a bit more involved

solved In main sheet there is 800 names(A1:A800). Each cell should go to different sheet with an order. First cell to first sheet etc [closed]