Skip the "Set". Code should read:

Dim intHXRCount As Integer
intHXRCount = Worksheets("Sheet8").Range("G4").Value

Tom

"aftamath77" wrote:

Dim intHXRCount As Integer
Set intHXRCount = Worksheets("Sheet8").Range("G4").Value

I get an error that says "Object Required"