Hi, I have the following code that creates a new workbook and adds named work sheets when the activex control is clicked. The user will need to manually export data to the new workbook ; "Data", "DataRW", "DataFW" worksheets from another program. How do I setup a userform or active x control on a worksheet for the user to indicate when the data has been loaded into the workbook. I have setup userforms to generate the reports but I'm stuck on the "Data" issue.
I've worked backwards on this project by developing a macro to generate several reports. These reports, the macro & the data are all in one workbook (not good). Now I'm trying to split it out so the macro is in a workbook by it's self. and the data and reports are in another.
So far I have the following which runs when the user clicks "Yes" when asked if they want to run reports. The first step is to get the data.
Public Sub btnYes_Click()
Set newWb = Workbooks.Add
wbFileName = Application.GetSaveAsFilename("New data file.xls", , , "Enter a new file name")
If wbFileName <> "False" Then
newWb.Sheets.Add().Name = "Data"
newWb.Sheets.Add().Name = "DataRW"
newWb.Sheets.Add().Name = "DataFW"
newWb.SaveAs wbFileName
End If
MsgBox newWb.Name & " " & newWb.Worksheets("Data").Name
End Sub
Bookmarks