D
David
I'm trying to set the names of two worksheets. I have a macro in the first
one that opens the second worksheet, and writes data to several cells in the
2nd worksheet.
I need to have the 2nd worksheet become the active sheet, and close the
first worksheet before I proceed. I'm trying to name the workbooks so I can
activate either one, but what I really need to do is have the 2nd worksheet
continue calling macros after the 1st sheet has been closed.
The code I'm using is below.
Sub timeout()
Dim wbSource As Workbook, wbZip As Workbook
Dim wbName As String
wbName = Range("A2").Value
wbZip = ActiveWorkbook
wbSource = wbName
Windows(wbName).Activate
ActiveWorkbook.Close SaveChanges:=True
Windows(wbZip).Activate
Worksheets(2).Activate
Range("B1").Select
Call ZipTheFile
End Sub
one that opens the second worksheet, and writes data to several cells in the
2nd worksheet.
I need to have the 2nd worksheet become the active sheet, and close the
first worksheet before I proceed. I'm trying to name the workbooks so I can
activate either one, but what I really need to do is have the 2nd worksheet
continue calling macros after the 1st sheet has been closed.
The code I'm using is below.
Sub timeout()
Dim wbSource As Workbook, wbZip As Workbook
Dim wbName As String
wbName = Range("A2").Value
wbZip = ActiveWorkbook
wbSource = wbName
Windows(wbName).Activate
ActiveWorkbook.Close SaveChanges:=True
Windows(wbZip).Activate
Worksheets(2).Activate
Range("B1").Select
Call ZipTheFile
End Sub