Hi

I have 4 sheets in workbook, I open as
Code:
 Set objBook = objXl.Workbooks.Open(sNovo_Arquivo, , , , "")
 Set objSheet = objBook.ActiveSheet
In code below I must choice sheet when change month

Code:
nSheet =0
  Do While Not rsEvento.EOF
        nMesAnterior = Month(rsEvento!DATA_INICIO)
        nSheet = nSheet + 1
        objBook.Sheets(nSheet).Select
   .....
This code is inside VB
But when I open file all data are in unique sheet, I have data for month 1,2,3 and April
How can I to choice sheet when change month