Dani,

OK, we're not on the same page here.  I'm not talking about a macro,
but about VB code.  You cannot make a "flexible" macro, all the
arguments are fixed.  So what you need to do is write code to
accomplish this.  Although there are other methods, the easiest thing
to do is create a form and, in design mode, place a command button on
it.  Cancel out of the command button wizard if that opens.  Select the
button, go into its properties (the properties window should be open
but if it isn't, right click and select properties), select the Event
tab,  Select the On Click property, click on the three dots next to it,
and select Code builder.  Now, after the Private sub Commandx_Click
line, enter the code I gave you.  Save the form, open it and click the
button to perform the import.

try this code.  I will link your Excel sheet to Access programatically.
Just replace the workbook name "Book1.xls" with the name of your actual
workbook (where ever it says Book1 - replace that with the name of your
actual workbook) and replace "Sheet1$" with the actual name of your
spreadsheet - make sure to include the $ (dollar sign is required).  If
you have spaces in your sheet name, you need to eliminate the spaces -
use underscore _.  Add this code to a standard module.  Then press the
F5 function key to run the code. Then you can just use queries against
the linked table.  Oh, and the subroutine assumes that your Access mdb
and your Excel file reside in the same directory.

-------------------------------------------------------
Sub ConnectToExcel()
Dim DB As Database, tdf As TableDef, strPath As String
Dim strTable As String, strConnect As String
Dim strSourceTable As String

Set DB = CurrentDb
strPath = Left(DB.Name, Len(DB.Name) - Len(Dir(DB.Name)))
strPath = strPath & "Book1.xls"
strTable = "Book1"
strConnect = "Excel 5.0;HDR=YES;IMEX=2;DATABASE=" & strPath
strSourceTable = "Sheet1$"
 
For Each tdf In DB.TableDefs
 If tdf.Name = "Book1" Then DB.TableDefs.Delete tdf.Name
Next
Set tdf = DB.CreateTableDef(strTable)
tdf.Connect = strConnect
tdf.SourceTableName = strSourceTable
DB.TableDefs.Append tdf
Application.RefreshDatabaseWindow
 
End Sub
--------------------------------------------------------

The nice thing about this routine is that if you have several worksheets
you can write a loop and loop through a list of spreadsheets (use the
Array function to create an array of spreadsheet names and loop through
the array - goto help lookup Array)

Rich