This should get you the last row of the first column:

Dim LastRow As Integer
Set Lastow = Main.Range("A65536").End(xlUp).Row

Thanks Caer

 

The problem is I dont know what to do with it once ive got it!

 

Any ideas would be really appreciated

Do with what, the code or the value it results in?

I don't know how to show an error if the row returned is less than 85 or greater 85 in the sheet Main

Oh, something like this should do it:

If LastRow <> 85 Then
    PointlessVariable = MsgBox("Number of rows is not 85.", vbOKOnly, "YOU FAIL!")
End If

You could make it a bit more helpful by showing a different message depending on whether the number of rows is less than 85, or more.

edit:
Just in case you didn't know, '<>' means 'not equal to'. Sensible languages use '!=' or '!=='.

See, knew there was a better way.

:'D

--

Thanks Caer

 

Once i knew how it was supposed to be and a little tweak here and there it works a treat.

 

If i add a line it fails and if i take one away it fails. Brilliant thanks a lot