Code from Bill Jelen book gens error

[Reverendd2]

I've copied and pasted from Bill's book "VBA and Macros for MS Office Excel 2007", tried typing etc. but continue to get an error...

This is supposed to select the final row in the data list...

Error is "Compile Error. Expected Function or Variable."
I thought "FinalRow" was a variable that I am trying to create.
Help?
I'm relearning VBA after a long absence.

Sub FinalRow()

FinalRow = Range("A65536").End(xlUp).Row
TotalRow = FinalRow + 1
Range("A" & FinalRow + 1).Value = "THE END"

End Sub

 

[Jonmo1]

If that is copied directly from the book, it must just be a typo in the book.


The problem is that it's trying to use a variable that has the same name as the name of the macro. Can't do that..

Just rename the macro to something else..

Sub LastRow()

FinalRow = Range("A65536").End(xlUp).Row
TotalRow = FinalRow + 1
Range("A" & FinalRow + 1).Value = "THE END"

End Sub

 

[VoG]

Hello and welcome to MrExcel.

You can't name a Sub with the same name as a variable. Try Sub MyFinalRow() instead.

 

[Colin Legg]

Also declare your variables and it should work:

[COLOR=blue]Sub[/COLOR] MyFinalRow()
    [COLOR=blue]Dim[/COLOR] FinalRow [COLOR=blue]As[/COLOR] [COLOR=blue]Long[/COLOR]
    [COLOR=blue]Dim[/COLOR] TotalRow [COLOR=blue]As[/COLOR] [COLOR=blue]Long[/COLOR]
 
    FinalRow = Range("A65536").End(xlUp).Row
    TotalRow = FinalRow + 1
    Range("A" & FinalRow + 1).Value = "THE END"
[COLOR=blue]End[/COLOR] [COLOR=blue]Sub[/COLOR]

Hope that helps...

 

[Reverendd2]

Perfect. Thanks. I knew I was just missing something.