Remove A Filter Arrow?

Many Thanks for your reply arlu1201,,,
You say "It worked fine." ,,Humm,, I'm not getting that here:-(
Not with the code I posted above,,,,
Just tried it adding your 1 line of code,, so it is now;

Sub HideArrowsRange()
'hides arrows in specified range
Dim c As Range
Dim i As Integer
Dim rng As Range
Set rng = Range("B4:J4")
i = rng.Cells(1, 1).Column - 1
Application.ScreenUpdating = False

Range("B4:J4").AutoFilter
For Each c In Range("B4:J4")
Select Case c.Address
Case "$F$4"
c.AutoFilter Field:=c.Column - i, _
Visibledropdown:=False
Case Else
c.AutoFilter Field:=c.Column - i, _
Visibledropdown:=True
End Select
Next

Application.ScreenUpdating = True
End Sub
[/code]

And,,,, It Works!!!!!!!!!
I still don't get it to work as you say you can without the line of code you suggested to add arlu1201.

But hey,, it's working now.

Many thanks for this..
Screen shot attached,, beautiful!! :-)
\1
Many thanks again arlu1201,,,
I can apply this else where now in my workbook.

All the best
A very grateful
TheGhost

Sorry again,,,,,,,,,
Yes,, you are right arlu1201,,,,,,,
My mistake,,,,
I allied the filter before I ran the original code that I posted!!!

It was working after all,,,

I was just wrong in how I applied it! :-(

Many thanks for pointing this out.

I'll never be a coder (I can format ok though) :-)

All the best
TheGhost,
And thanks again ....It was bugging me !!

Hi SHG!!

Many thanks for your reply,,,

Great stuff.
I made a schoolboy error it seems :-(

I've just seen your code that you've posted....
Surely yours is better,, I mean more efficient?
It uses a lot less lines of code.

I think I'll convert to your suggestion SHG.
Many thanks for this.

Just to add,, if I wanted to TWEAK your code,, I mean say I want to remove 2 filters,, say F4 & H4???
I just tried;

Please Login or Register  to view this content.

This removed F4,, but not H4 filter :-(

Can you just advise me on this 1 SHG,, as then I can alter filters on my sheets at will real easy

I just thought I could add 1 more cell reference into your code,, (IE h4)
Seems I done it wrong

Many thanks for your reply though.

My sheet is really starting to look special.
All the best
A very Grateful
TheGhost

Hi SHG,,,
I managed to get your code working by adding .. repeating 2 lines of your code..
it now looks like;

Please Login or Register  to view this content.

it worked !! (Which is highly unusual for me.. :-)

Is the code ok though?
I mean,, is this the correct way it should be?
Just because I winged it,, and got it to work doesn't make it correct.

but still,, it was nice for once to get it working..;-)

If you can advise if this is OK I'd be most grateful,

many Thanks
TheGhost

Excellent!!
many thanks again..
It's to go in my 2nd FREE PRO spreadsheet I'm working on...
Top secret,, well,, not so secret now,, hehe:-0
I'll credit you again for this SHG! ;-)

All the best
TheGhost