populate excel from access table

[Legacy 15162]

I am using worksheet names as criteria for a sql query. there are worksheets that are used as rollups....how would i leave out those rollup worksheet names since they would not reside in the access table...here is the beginning portion of the code currently in place.

For i = 1 To xlWB.Worksheets.Count

Set xlWS = xlWB.Worksheets(i)

stWkshtName = xlWS.Name

' Sequel String to pull back selected fields
stSqlAct = "Select [Actual].*" & _
" From [Actual]" & _
" Where [Actual].[Store] =" & stWkshtName

 

[Legacy 15162]

nevermind, got it!

For i = 1 To xlWB.Worksheets.Count

Set xlWS = xlWB.Worksheets(i)

stWkshtName = xlWS.Name
if stWkshtName <> "invalid name1" and stWkshtName <> "invalid name2" then
' Sequel String to pull back selected fields
stSqlAct = "Select [Actual].*" & _
" From [Actual]" & _
" Where [Actual].[Store] =" & stWkshtName
.
.
.
end if

 

[Legacy 15162]

How would I do an "IN LIST" in vba?