You have not explained the actual error you are getting. However, add the
following line before the line you are getting the error in and it might work.

Worksheets("Field Activity Report").Activate

Alok Joshi

"Larry" wrote:

I have a macro to copy info from one sheet and paste it into selected blank
cells on another sheet. It should work, but the application error indicates
there's something wrong with: Worksheets("Field Activity
Report").Cells(BlankCell,4).Select

Here's the macro:
Sub CopyRetailerInfo()
Dim BlankCell As Integer

Range(ActiveCell, ActiveCell.Offset(0, 4)).Copy
Worksheets("Field Activity Report").Select
BlankCell = Application.WorksheetFunction.CountA(Worksheets("F ield Activity
Report").Range("D:D")) = 1
Worksheets("Field Activity Report").Cells(BlankCell, 4).Select
Selection.PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
Worksheets("Survey Spreadsheet").Select

End Sub

Any guidance would certainly be appreciated. Thanks!