Conditional scrolling macro

[Hart]

Hi all.
I would like to create a macro which would scroll through a table if there are too many rows to fit on the display. For example, if the table had more than 25 rows, scroll until the last row is displayed. Once the end of the table is reached, the scroll would return to the first entry in the table and repeat.
If the table had <= 25 rows, no scrolling is required.
Something like:
if rows(table1)<=25 then no scroll
else scroll to end of table (and repeat)

Thanks!

 

[Yongle]

Run this code (any module will do) - should return true

Sub ee()
MsgBox Application.EnableEvents
End Sub

 

[Hart]

It did.

 

[Yongle]

After this line

Set tbl = Target.ListObject

add this line

msgbox tbl.name

Select any cell in the table and the message box containing table name should appear

 

[Hart]

Like this?

Sub ee()
Set tbl = Target.ListObject
MsgBox tbl.Name
End Sub

 

[Yongle]

I should have been more specific...
No - add the line to the Selection_Change macro

 

[Hart]

Thanks Yongle. It says "Table2"

 

[Hart]

There is 1 other named range in my sheet but it is not a table.

 

[Yongle]

It says "Table2"

That proves that you put the code in the correct place
It also proves that the table exists and is recognised as such
Now I need to work out why the scroll is not working for you when it does for me

Can you try all versions of the code
- delete the VBA each time and then paste in the others one at a time and test them
- include the message box - at least we then know that the code is being triggered
- let me know how you get on

I will be away for about 60 minutes
- if it is still not working for you, I will send you various code snippets to see if we can unravel the mystery

 

[Hart]

Hi Yongle. The 2nd and 3rd pieces of code give the table name. The first piece of code does not work. I noted that there was an "end sub" that was outside the code window which I tried adding but it still did not compile. Syntax is not my strong point!

 

[Hart]

Hi Yongle. The 2nd and 3rd pieces of code give the table name. The first piece of code does not work. I noted that there was an "end sub" that was outside the code window which I tried adding but it still did not compile. Syntax is not my strong point!

I will offline now for about 3-4 hrs. Thanks for all your help to this point.
Hart