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