How do I return to a particular worksheet

[azizrasul]

I know this is an easy question and I hang my head in shame but I just can't get the answer.

I want to return to the first worksheet (Cover) in the following code.

    Set objExcelApp = CreateObject("Excel.Application")
    Set objWorkBook = objExcelApp.Workbooks.Open(strFilePathAMCorpQueries)
    
    objExcelApp.Visible = True

    For Each objWorkSheet In objWorkBook.Worksheets
        If objWorkSheet.Name = "Summary" Then
            objWorkSheet.Select
            objWorkSheet.Range("K14").Select
            objExcelApp.ActiveCell.FormulaR1C1 = [Forms]![Form1]![txtQuery_Date]
            objWorkSheet.Range("A1").Select
            objWorkSheet("Cover").Select         'Need this line to work
        End If
    Next objWorkSheet
     
    With objExcelApp
        .DisplayAlerts = False
        .ActiveWorkbook.SaveAs strFilePathAMCorpQueries
        .DisplayAlerts = True
        .Quit
    End With
    
    Set objWorkBook = Nothing

Thanks in advance.

 

[boblarson]

One way:

objWorkBook.Worksheets(1).Select

 

[azizrasul]

Thanks Bob, that did it.

 

[Norie]

If you didn't select other sheets you wouldn't need to do this.

Since your code doesn't need to select anything you could just remove the line of code that's selecting each sheet as you loop through them.

If you do want to move focus to a specific worksheet you can use this.

objExcelApp.Goto objWorkbook-Worksheets("Cover").Range("A1"), True

 

[azizrasul]

Thanks Norie I will bear that in mind.

 

[Norie]

aziz

It's actually a very good idea to avoid selecting because it really isn't needed and can cause problems - even in Excel VBA.

 

[azizrasul]

OK. How would I alter my original code in that case?