hi
c.address is not a selectable object. address is a string.
try
c.select or
range(c.address).select

also...seldom do you have to accually select. you can usually just reference
the ranges.
Worksheets("Sheet1").Range("Q2:V2").copy Destination:= _
c.Offset(0, -6).Range("A1")

Regards
FSt1

"MovingBeyondtheRecordButton" wrote:

Code doesn't work due to error on line: c.Address.Select

With Worksheets("Sheet2").Range("G2:G76")
Set c = .Find(F.Value, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Worksheets("Sheet3").Range("Q2:V2").Select
Application.CutCopyMode = False
Selection.Copy
c.Address.Select
ActiveCell.Offset(0, -6).Range("A1").Select
ActiveSheet.Paste
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address < firstAddress
End If
End With

I want to..

1) find where F.Value = the Value of a cell in
Worksheets("Sheet2").Range("G2:G76")
2) paste values from cells Worksheets("Sheet3").Range("Q2:V2") into columns
A through F (in the same row as the cell that was just found in .Find)