Select sheet in excel

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

I would avoid using .select to select a sheet.

For example if you have the code as below

Code:

---

Sheet(1).Select
Range("A1").Value = "Blah"

---

You can also write it as

Code:

---

Sheet(1).Range("A1").Value = "Blah"

---

Need to understand what exactly are you doing...