Private Function GetSheets()
Dim i As Integer
Dim strSheet(3) As String
strSheet(1) = "This Sheet!"
strSheet(2) = "That Sheet!"
strSheet(3) = "Other Sheet!"
For i = 1 To 3
DoCmd.TransferSpreadsheet acImport, , "Table" & i, "y:\testing2.xls", True, strSheet(i)
Next i
End Function