Could somebody check over this code please?

[richanor]

Hi I am trying to define a range (called "Responses") of columns CJ:CU of a given row number. The code I'm using to locate the required row is here:

    Set ws = Worksheets("Database")
    Search = Me.PtNumber.Value
    SearchColumn = "A"
    Set Foundcell = ws.Columns(SearchColumn).Find(Search, LookIn:=xlValues, lookat:=xlWhole)

I am then trying to offset and resize the range using this:

Set Responses = Foundcell.Resize(0, 12).Offset(0, 87)

which gives me an "application defined or object defined error"

If you don't mind could you explain what I'm doing wrong as I'm trying to learn as I go.

Many thanks

Rich

 

[jasonb75]

You can't have 0 as a resize dimension. For a single row use 1, to keep the original number of rows leave the first field empty.

 

[richanor]

Brillian - thanks Jason! It makes sense now that you say it - really appreciate the explanation! (and working fine now)

Rich