Activecell

Hi folks a total newbie here. i am having problems using Activecell. Am trying to get, through the use of a command button, the value of a selected cell to copy to another sheet.

Have check the first part of code and it works fine but the second part returns a Error >>. Object doesn't support this property or method.

I have tried the varies follow lines with no luck (not all at same time) '

What am I missing?

Some examples of what I have tried.

Worksheets("Data").Range("ppack").Find("").Value = Worksheets("Gearlist").ActiveCell.Value
Worksheets("Data").Range("ppack").Find("").Value = Worksheets("Gearlist").Range(ActiveCell.Value).Value
Worksheets("Data").Range("ppack").Find("").Value = Worksheets("Gearlist").Range(ActiveCell.Value).Value
Worksheets("Data").Range("ppack").Find("").Value = Worksheets("Gearlist").Range(ActiveCell.ActiveCell.Offset()).Value

Thanks in Advance

Thanks for that works fine. I also tried the following code line which also worked

ActiveCell.Copy Worksheets("Data").Range("ppack").Find("")

Thanks again for your assistance

Moderation Edit: Please not I have put your code in a special Code Box which makes the code easier to read and copy. Please use them in future, watch this 60 second video to see how

Posting Code on Ozgrid