The activesheet may be different the frist time you run the code from the
second time.  Make sure you specify each sheet by name or number rather than
activesheet if you have more than one sheet.

The beginning module runs this sub.  It erases data in a table in a separate
sheet ("Sample") and updates a column for a dropdown combobox.  The second
time, it calls up a form, "EnterMenu, which has a control button to call up
the dropdown combobox.  You select the number you want, and it pulls the data
from the Access file into "Sample" sheet which is then copied to "Estimate"
sheet that the user sees.

'Finds all data (Used to provide all project numbers to dropdown values)
   Dim sWHERE As String
   Dim sAccessFile As String
   Dim sTable As String
   Dim lastrow As String
   Dim numrows As String
   
'Hides viewing of running macro
 Application.ScreenUpdating = False
'Copies data in rows a-j to "Sample" worksheet
   Sheets("Sample").Select
   Range("A2:j2").Select
   Selection.ClearContents
       
   sAccessFile = ThisWorkbook.Path & "\projectestimationdraft1.mdb"
   sTable = "All Fields"
   
   ' Get rid of existing data in the table starting at row 5
   ClearTableData 5
   
      ' Construct a query using data in the table starting at row 2
   ConstructQuery 1, sWHERE
   
   ' Get query data from Access and put it in the table starting at row 5
   QueryAccessToDataTable 5, sAccessFile, sTable, sWHERE
'Sorts all project nos.
   Worksheets("Sample").Select
   Range("A5").Select
   lastrow = Selection.End(xlDown).row
   ActiveWorkbook.Worksheets("Sample").Sort.SortFields.Clear
   ActiveWorkbook.Worksheets("Sample").Sort.SortFields.Add
Key:=Range("A6:A" & lastrow), _
       SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
   With ActiveWorkbook.Worksheets("Sample").Sort
       .SetRange Range("A5:A" & lastrow)
       .Header = xlYes
       .MatchCase = False
       .Orientation = xlTopToBottom
       .SortMethod = xlPinYin
       .Apply
   End With
'Filters project nos and copies them to Drowdown Values sheet
   Range("A5:A" & lastrow).AdvancedFilter Action:=xlFilterInPlace,
Unique:=True
   Range("a6").Select
   Range(Selection, Selection.End(xlDown)).Select
   Selection.SpecialCells(xlCellTypeVisible).Select
   numrows = Range("A6:A" & lastrow).Rows.SpecialCells(xlVisible).Count
   Selection.Copy
   Sheets("Dropdown Values").Select
   Range("A2").Select
   ActiveSheet.Paste
   Application.CutCopyMode = False
'Deletes anything below updated range of Project Numbers
   Range("A" & (numrows + 1)).Select
   ActiveCell.Offset(1, 0).Range("A1").Select
       If ActiveCell.Text = "" Then
           Else
       Range(Selection, Selection.End(xlDown)).Select
       Selection.ClearContents
       End If
   Sheets("Sample").Select
   Range("A6").Select
   Selection.AutoFilter
   Selection.AutoFilter
   Sheets("Estimate").Select
   'EnterMenu.StartUpPosition = CenterOwner
   EnterMenu.Show
End Sub

The second time it doesn't do the initialize code in the EnterMenu form. It
just shows then menu and then ends the original sub.  The combobox is not
cleared, and the forms shift to the left side of the screen.