I need helpfast

[MERKY]

how can i alter this formula so that it shows the Top number of players that the user types into the input box
Thankz in advance

Sub Filter_Ltable()
'
' Filter_Ltable Macro
' Macro recorded 10/05/2002 by
'

'

Dim x As Integer
x = Application.InputBox("How many of the top players do you want to show" _
, "Enter number of players", 10, , , 1)

Range("B4:H4").Select
Selection.AutoFilter
Selection.AutoFilter Field:=7, Criteria1:="10", Operator:=xlTop10Items
Range("B5").Select
End Sub

 

[Legacy 98055]

Change:

Selection.AutoFilter Field:=7, Criteria1:="10", Operator:=xlTop10Items

To:

Selection.AutoFilter Field:=7, Criteria1:=x, Operator:=xlTop10Items

Tom

 

[MERKY]

Tom, your formula only works if the user enters 10 into input box. I need it to work for any number
This message was edited by MERKY on 2002-05-09 17:53

 

[Legacy 98055]

Hi
I don't know what your list is.
I don't know why it is not working???
Did you change the criteria to x?

Criteria1:=x

Tom

 

[brettvba]

it works alright on mine too

 

[brettvba]

try it like this

Sub Filter_Ltable()


Dim x
x = (CLng(Application.InputBox("How many of the top players do you want to show" _
, "Enter number of players")))

range("b4":"h4").select
If Selection.AutoFilterMode = False Then Selection.AutoFilterMode
Selection.AutoFilter Field:=7, Criteria1:=(x), Operator:=xlTop10Items
Range("B5").Select
End Sub

 

[Colo]

Selection.AutoFilter Field:=7, Criteria1:=(x), Operator:=xlTop10Items

Hi brettvba,

Please let me know the advantage to use ().

 

[Colo]

Both of TsTom's code and brettvba's code are works on mine.


<CENTER><TABLE ALIGN=CENTER BORDER=1><TR><TD BGCOLOR=#0C266B COLSPAN=8><FONT COLOR=WHITE>Microsoft Excel - Book2</FONT></TD></TR><TR><TD BGCOLOR=#D4D0C8 COLSPAN=8>File(<U>F</U>) Edit(<U>E</U>) View(<U>V</U>) Insert(<U>I</U>) Tool(<U>T</U>) Data(<U>D</U>) Window(<U>W</U>) Help(<U>H</U>)</TD></TR><TR><TD ALIGN=CENTER COLSPAN=2 BGCOLOR=White>C1</TD><TD ALIGN=CENTER BGCOLOR=#D4D0C8 >=</TD><TD COLSPAN=5 BGCOLOR=White></TD></TR><TR><TD WIDTH=5 BGCOLOR=#D4D0C8 ALIGN=CENTER>?</TD><TD BGCOLOR=#D4D0C8 ALIGN=CENTER>B</TD><TD BGCOLOR=#D4D0C8 ALIGN=CENTER>C</TD><TD BGCOLOR=#D4D0C8 ALIGN=CENTER>D</TD><TD BGCOLOR=#D4D0C8 ALIGN=CENTER>E</TD><TD BGCOLOR=#D4D0C8 ALIGN=CENTER>F</TD><TD BGCOLOR=#D4D0C8 ALIGN=CENTER>G</TD><TD BGCOLOR=#D4D0C8 ALIGN=CENTER>H</TD></TR><TR><TD WIDTH=5 BGCOLOR=#D4D0C8 ALIGN=CENTER>4</TD><TD BGCOLOR=#CCFFCC ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>Code Num</FONT></TD><TD BGCOLOR=#CCFFCC ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>Something</FONT></TD><TD BGCOLOR=#CCFFCC ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>Something</FONT></TD><TD BGCOLOR=#CCFFCC ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>Something</FONT></TD><TD BGCOLOR=#CCFFCC ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>Something</FONT></TD><TD BGCOLOR=#CCFFCC ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>Something</FONT></TD><TD BGCOLOR=#CCFFCC ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>Score</FONT></TD></TR><TR><TD WIDTH=5 BGCOLOR=#D4D0C8 ALIGN=CENTER>5</TD><TD BGCOLOR=#CCFFFF ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#0000FF>A0001</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>1</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>1</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>1</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>1</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>1</FONT></TD><TD BGCOLOR=#FFFF99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#FF0000>100</FONT></TD></TR><TR><TD WIDTH=5 BGCOLOR=#D4D0C8 ALIGN=CENTER>6</TD><TD BGCOLOR=#CCFFFF ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#0000FF>A0002</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>2</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>2</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>2</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>1</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>2</FONT></TD><TD BGCOLOR=#FFFF99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#FF0000>50</FONT></TD></TR><TR><TD WIDTH=5 BGCOLOR=#D4D0C8 ALIGN=CENTER>7</TD><TD BGCOLOR=#CCFFFF ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#0000FF>A0003</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>3</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>3</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>3</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>3</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>3</FONT></TD><TD BGCOLOR=#FFFF99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#FF0000>150</FONT></TD></TR><TR><TD WIDTH=5 BGCOLOR=#D4D0C8 ALIGN=CENTER>8</TD><TD BGCOLOR=#CCFFFF ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#0000FF>A0004</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>4</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>4</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>4</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>4</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>4</FONT></TD><TD BGCOLOR=#FFFF99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#FF0000>200</FONT></TD></TR><TR><TD WIDTH=5 BGCOLOR=#D4D0C8 ALIGN=CENTER>9</TD><TD BGCOLOR=#CCFFFF ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#0000FF>A0005</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>5</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>5</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>5</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>5</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>5</FONT></TD><TD BGCOLOR=#FFFF99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#FF0000>30</FONT></TD></TR><TR><TD WIDTH=5 BGCOLOR=#D4D0C8 ALIGN=CENTER>10</TD><TD BGCOLOR=#CCFFFF ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#0000FF>A0006</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>6</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>6</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>6</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>6</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>6</FONT></TD><TD BGCOLOR=#FFFF99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#FF0000>250</FONT></TD></TR><TR><TD WIDTH=5 BGCOLOR=#D4D0C8 ALIGN=CENTER>11</TD><TD BGCOLOR=#CCFFFF ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#0000FF>A0007</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>7</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>7</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>7</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>7</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>7</FONT></TD><TD BGCOLOR=#FFFF99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#FF0000>100</FONT></TD></TR><TR><TD WIDTH=5 BGCOLOR=#D4D0C8 ALIGN=CENTER>12</TD><TD BGCOLOR=#CCFFFF ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#0000FF>A0008</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>8</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>8</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>8</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>8</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>8</FONT></TD><TD BGCOLOR=#FFFF99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#FF0000>300</FONT></TD></TR><TR><TD WIDTH=5 BGCOLOR=#D4D0C8 ALIGN=CENTER>13</TD><TD BGCOLOR=#CCFFFF ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#0000FF>A0009</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>9</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>9</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>9</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>9</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>9</FONT></TD><TD BGCOLOR=#FFFF99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#FF0000>350</FONT></TD></TR><TR><TD WIDTH=5 BGCOLOR=#D4D0C8 ALIGN=CENTER>14</TD><TD BGCOLOR=#CCFFFF ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#0000FF>A0010</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>10</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>10</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>10</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>10</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>10</FONT></TD><TD BGCOLOR=#FFFF99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#FF0000>220</FONT></TD></TR><TR><TD WIDTH=5 BGCOLOR=#D4D0C8 ALIGN=CENTER>15</TD><TD BGCOLOR=#CCFFFF ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#0000FF>A0011</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>11</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>11</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>11</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>11</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>11</FONT></TD><TD BGCOLOR=#FFFF99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#FF0000>190</FONT></TD></TR><TR><TD WIDTH=5 BGCOLOR=#D4D0C8 ALIGN=CENTER>16</TD><TD BGCOLOR=#CCFFFF ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#0000FF>A0012</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>12</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>12</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>12</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>12</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>12</FONT></TD><TD BGCOLOR=#FFFF99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#FF0000>180</FONT></TD></TR><TR><TD WIDTH=5 BGCOLOR=#D4D0C8 ALIGN=CENTER>17</TD><TD BGCOLOR=#CCFFFF ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#0000FF>A0013</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>13</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>13</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>13</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>13</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>13</FONT></TD><TD BGCOLOR=#FFFF99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#FF0000>50</FONT></TD></TR><TR><TD WIDTH=5 BGCOLOR=#D4D0C8 ALIGN=CENTER>18</TD><TD BGCOLOR=#CCFFFF ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#0000FF>A0014</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>14</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>14</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>14</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>14</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>14</FONT></TD><TD BGCOLOR=#FFFF99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#FF0000>50</FONT></TD></TR><TR><TD WIDTH=5 BGCOLOR=#D4D0C8 ALIGN=CENTER>19</TD><TD BGCOLOR=#CCFFFF ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#0000FF>A0015</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>15</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>15</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>15</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>15</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>15</FONT></TD><TD BGCOLOR=#FFFF99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#FF0000>30</FONT></TD></TR><TR><TD WIDTH=5 BGCOLOR=#D4D0C8 ALIGN=CENTER>20</TD><TD BGCOLOR=#CCFFFF ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#0000FF>A0016</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>16</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>16</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>16</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>16</FONT></TD><TD BGCOLOR=#FFCC99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#000000>16</FONT></TD><TD BGCOLOR=#FFFF99 ALIGN=Center VALIGN=BOTTOM ><FONT FACE=Courier COLOR=#FF0000>10</FONT></TD></TR><TR><TD COLSPAN=8><U>Sheet1</U></TD></TR></TABLE>
<FONT COLOR=#339966>Assuming your sheet is like above image.</FONT></CENTER>



brettvba, I always do not use () but my code is works fine too.

<pre>
Sub Filter_Ltable()
Const m1 As String = "How many of the top players do you want to show"
Const m2 As String = "Enter number of players"
Dim x As Integer

x = CInt(Application.InputBox(m1, m2, Type:=1))
With Range("B4:H4")
If Not .Parent.AutoFilterMode Then .AutoFilter
.AutoFilter 7, x, 3
End With
End Sub
</pre>