ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   AutoFilter VBA Problem (https://www.excelbanter.com/excel-discussion-misc-queries/101888-autofilter-vba-problem.html)

Michael Link

AutoFilter VBA Problem
 
I have a macro that I think should hide the AutoFilter arrow in column E
only. It runs as follows:

Sub HideArrows()
Dim c As Range
Dim i As Integer
i = Cells(1, 1).End(xlToRight).Column
Application.ScreenUpdating = False

For Each c In Range(Cells(1, 1), Cells(1, i))
If c.Column = 5 Then
c.AutoFilter Field:=c.Column, _
Visibledropdown:=False
End If
Next

Application.ScreenUpdating = True
End Sub

When I run it, however, I keep getting a compile error, indicating that only
comments may appear after end sub, etc., and it highlights the very first
liine of the program. There are no other macros before this.

Help! I know virtually nothing about VBA, so probably I've made a very basic
error. Where did I go wrong?

Dave Peterson

AutoFilter VBA Problem
 
You've got some kind of invisible characters in your code window.

Try highlighting the stuff to the right of "end sub" and all the way down.

Then hit the delete key.

Michael Link wrote:

I have a macro that I think should hide the AutoFilter arrow in column E
only. It runs as follows:

Sub HideArrows()
Dim c As Range
Dim i As Integer
i = Cells(1, 1).End(xlToRight).Column
Application.ScreenUpdating = False

For Each c In Range(Cells(1, 1), Cells(1, i))
If c.Column = 5 Then
c.AutoFilter Field:=c.Column, _
Visibledropdown:=False
End If
Next

Application.ScreenUpdating = True
End Sub

When I run it, however, I keep getting a compile error, indicating that only
comments may appear after end sub, etc., and it highlights the very first
liine of the program. There are no other macros before this.

Help! I know virtually nothing about VBA, so probably I've made a very basic
error. Where did I go wrong?


--

Dave Peterson


All times are GMT +1. The time now is 05:45 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com