error 400 - Label not defined help

Hi Guys,

I kept getting an error 400 so I threw in a trap and it come sup with 'Label not defined' I cannot for the life of me figure out why! Any ideas would be great.

Sub CollectIndexData()
Dim HouseTypeName() As Variant




'---------->>>>>>>>>> Collect Data First <<<<<<<<<<----------


TheEstateID = EOV.Cells(4, 4)      'Estate File Name
TheEstateName = EOV.Cells(6, 4)             'Estate Name
TheLocality = EOV.Cells(4, 10)                   'Locality ID
TheBA = EOV.Cells(6, 10)                           'Billing Authority
TheCreatedDate = EOV.Cells(16, 11)         'File Created
TheCompletedDate = EOV.Cells(18, 10)    'File Completed

'Developer Index Data---------------------------------------------------
'TheDeveloperData(1) = The Unique ID from the index
TheDeveloperData(2) = EOV.Cells(8, 4) 'Developer Name
TheDeveloperData(3) = EOV.Cells(9, 4) 'Developer Website

'Type Index-----------------------------------------------------------------

Set TheSheet = ThisWorkbook.Sheets("House Types")
HouseTypeLastRow = DataSetLastRow(TheSheet)

If HouseTypeLastRow > 4 Then
HouseTypeName() = TheSheet.Range(Cells(5, 2), Cells(LastRow, 2)) <------- error 400 occurs here, then if blanked out it goes to the next line
TypeDeveloper() = TheSheet.Range(Cells(5, 3), Cells(LastRow, 3))
TheBand() = TheSheet.Range(Cells(5, 4), Cells(LastRow, 4))
'EstateID() EstateID
'ThePAD() = TheSheet.Range(Cells(5, 5), Cells(LastRow, 19))
End If

p.s. DataSetLastRow is a defined function so that should be fine

End Sub

Thanks in advance

You need also to define Cells to that sheet:

HouseTypeName() = TheSheet.Range(TheSheet.Cells(5, 2), TheSheet.Cells(LastRow, 2))

Same for all other Cells.

Also, I don't see that you've defined LastRow so maybe it's a 0 and there is no Cell(0,4)

@ Mick

Tbh me too - although prior to this it hasn't caused issues so for some reason it seems to be fine with it.

Originally Posted by mikerickson

I'm surprised that the () without index isn't causing a syntax error

HouseTypeName() = TheSheet.Range(Cells(5, 2), Cells(LastRow, 2))

That too

Having definined 'TheSheet.Cells' it still comes up with the error, although 'TheSheet' must be fine as when I highlight Cells(5. 2) in debug it indicates it's populated with the correct info.

I shall look into the Last Row issue now and see if that's the problem,

Thanks!

Haha both comments were spot on!

@ Zbor - The LastRow name should have been HouseTypelastrow as that's what I'd set it is - Normally I just use LastRow
@Mick - The () didn't cause a syntax but type mismatch once the initial label error was solved - sorted!

Both thanks for your help

+Rep all around!