Need a Macro to Scroll to the left

[Don Lowe]

I need a Macro to scroll to the left a specifc amount of colunms without
changing the row I am on.

 

[Doug Glancy]

Don,

Try this:

Sub ScrollLeft(lngColumns As Long)
ActiveWindow.SmallScroll Toleft:=lngColumns
End Sub

and call it like this:

Sub test()
ScrollLeft (5) 'adjust this number
End Sub

hth,

Doug

 

[Don Lowe]

what do you mean call it like this?

What should I put if I need to shift to the right 25 colunms?

 

[Doug Glancy]

Don,

If it's always 25 columns then:

Sub Scroll25Left()
ActiveWindow.SmallScroll Toleft:=25
End Sub

hth,

Doug

 

[Don Lowe]

Thank you....... It worked great

Don,

If it's always 25 columns then:

Sub Scroll25Left()
ActiveWindow.SmallScroll Toleft:=25
End Sub

hth,

Doug