Remove A Filter Arrow?

hello All.
I'm trying to remove 1 filter arrow.
For cross posting purposes I have posted here;
http://www.mrexcel.com/forum/showthread.php?t=613629

A guy called SHG (A Great contributor by the way, really,,) got back to me and mentioned a link whic was here;
http://contextures.com/xlautofilter03.html#Hide

this actually was really informative,, many ways to remove filter arrows depending on where they start from etc etc.

I did try one suggestion, I think I coded it correctly but got a
debug error in VB,, and it shows these lines of code in yellow;

        c.AutoFilter Field:=c.Column - i, _
          Visibledropdown:=True

My formula by the way was;

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

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

Does anybody know how I can fix tis please?
I do have a sample sheet here;
http://dl.dropbox.com/u/16052166/hid...est-sheet.xlsm

All I'm looking to do is hide F4 drop down arrow filter in my sheet.

I hope somebody can advise.

many Thanks
TheGhost