set a different worksheet current ?

[mdhutchinson]

How do I set a different worksheet current.
I tried changing the item number on this line...
<<< Set shtObj = excelApp.Worksheet(1) >>>
but it didn't work...?

Private Sub CommandButton1_Click()
Dim excelApp As Excel.Application
Dim wbkObj As Workbook
Dim shtObj As Worksheet
On Error Resume Next
UserForm1.Hide
Err.Clear
Set excelApp = GetObject(, "Excel.Application")
If Err <> 0 Then
Err.Clear
Set excelApp = CreateObject("Excel.Application")
If Err <> 0 Then
MsgBox "Could not start excel", vbExclamation
End
End If
End If
excelApp.Visible = True
Set wbkObj = excelApp.Workbooks.Add
Set shtObj = excelApp.Worksheet(1)
UserForm1.Show
End Sub

[joesu]

I believe this should do it.

Joe
--

Worksheets("Sheet2").Activate