I have copied and pasted from a website with a list of fuel used that were
entered by the user. When copied to excel, all entry boxes turned to control
text boxes. If there a macro to transfer the contents of the box to their
respective adjacent cell?

You could play around with the TopLeftCell property but my personal
preference is to designate a range of cells that I want to use and the make
explicit value assignments to those cells for the value of the text boxes.
Maybe someone else has a better way, but if there is any adding or deleting
of rows and columns, The TopLeftCell property is not very stable.



"Ryan Hicks" <Ryan (E-Mail Removed)> wrote in message
news:5A033E65-2BD6-4BBF-9719-(E-Mail Removed)...
>I have copied and pasted from a website with a list of fuel used that were
> entered by the user. When copied to excel, all entry boxes turned to
> control
> text boxes. If there a macro to transfer the contents of the box to their
> respective adjacent cell?

You could also try

Sub Macro()
For Each obj In ActiveSheet.DrawingObjects
intTemp = intTemp + 1
Range("A" & intTemp) = obj.Object.Text
Next
End Sub

If this post helps click Yes
---------------
Jacob Skaria


"Ryan Hicks" wrote:

> I have copied and pasted from a website with a list of fuel used that were
> entered by the user. When copied to excel, all entry boxes turned to control
> text boxes. If there a macro to transfer the contents of the box to their
> respective adjacent cell?