Object Variable or With Block Variable Not Set

[SBF12345]

D = PA.Worksheets(g).Range(Cells(B, "A"), Cells(2, C))

receiving an error on the above line, not sure what is causing it...B, C are both integer variables, g is a string variable, and PA is a workbook variable. Syntax?

 

[Michael M]

Can we see all the code ??

 

[SBF12345]

The line occurs within this part of the code

    For Each ws In COM.Worksheets

    A = COM.Worksheets(g).Range("A7").value


    C = PA.Worksheets(g).Cells(2, Columns.Count).End(xlToLeft).Column


    For B = C To 2 Step -1


        If A = PA.Worksheets(g).Cells(B, "A").value Then


        D = PA.Worksheets(g).Range(Cells(B, "A"), Cells(2, C))


        E = B - 2


        End If


    Next B

 

[StephenCrump]

Have you perhaps declared D as Range?

If so, you'll need to Set D = ....

 

[Michael M]

It's ALWAYS easier to debug if we can see ALL the code !!

 

[Rick Rothstein]

D = PA.Worksheets(g).Range(Cells(B, "A"), Cells(2, C))

receiving an error on the above line, not sure what is causing it...

I think you need to specify the sheet reference for both of those Cells objects...

[table="width: 500"]
[tr]
	[td]D = PA.Worksheets(g).Range(PA.Worksheets(g).Cells(B, "A"), PA.Worksheets(g).Cells(2, C))[/td]
[/tr]
[/table]

or alternately (and probably "cleaner"...

With PA.Worksheets(g)
  D = .Range(.Cells(B, "A"), .Cells(2, C))
End WIth

 

[SBF12345]

apologies for the late response...I got it fixed using set and the with statement. Thanks!