Thanks a lot. I'm doing the checking whether the workbook
is opened. It's working good. But, if it's opened how can
I activate (open) another worksheet.

If logFileIsOpened = True Then '< checking working good

' < what should I do here to open another worksheet
without reopenning workbook

Else
'< It's working good
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.Workbooks.Open(strFileName)
Set xlSheet = xlBook.Worksheets(strRecipeNum)
xlSheet.Activate
DoCmd.SetWarnings True
xlApp.DisplayAlerts = True
xlApp.Visible = True
xlApp.AskToUpdateLinks = True
End If

-----Original Message-----
Your button is executing

Set xlBook = xlApp.Workbooks.Open(strWorkbookName)

every time it is pressed. You need to check whether the
worbook is already open: if yes, don't open it otherwise
open it.

.