Excel97 - Template XLS to actual XLS without Macro's

C

Cameron

Hi all,
Have the following code ..
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Or OptionButton2.Value = True Then
If OptionButton1.Value = True Then SelDSet = OptionButton1.Tag
If OptionButton2.Value = True Then SelDSet = OptionButton2.Tag
Else
MsgBox "You must select a Dataset [X/Y]." _
, vbCritical + vbOKOnly, _
"Dataset Required."
OptionButton1.SetFocus
Exit Sub
End If

ResVal = MsgBox("Please confirm the following: " & Chr(13) & _
"Diary Date : " & TextBox3.Text & Chr(13) & _
"Dataset : " & SelDSet & Chr(13) _
, vbQuestion + vbYesNo + vbDefaultButton2, _
"Confirm Details.")

If ResVal = vbYes Then
Worksheets("Console Diary").Range("E2") _
= Format(TextBox3.Value, "mm/dd/yy")
Worksheets("Console Diary").Range("G2") _
= SelDSet

'************************************
Set Newbook = Workbooks.Add
fname = "\\BQL1\DATA\SHARE\ONCALL\DIARIES\Console Diary 20" &
Format(TextBox3.Value, "yymmdd") & ".xls"

Newbook.SaveAs FileName:=fname

'.Close SaveChanges:=False
'************************************
MsgBox "New Console Diary Created" & Chr(13) & "And Ready For Use.",
vbOKOnly, "Console Diary Creation Completed."

End If

End Sub
It's the last section between the '*' that I need help & direction. The new
XLS I'd like to create will contain the content and format of the "Console
Diary" Worksheet and the "Work" Worksheet, but not to contain the macro that
I've written into this XLS. How do I go about achiving this??

Copy of the XLS can be found here
 
D

Dave Peterson

It looks like your code could be behind a userform. If that's correct, then you
could just copy those two worksheets to a new workbook and that code won't come
with it.

Dim newWkbk As Workbook
'....
Worksheets(Array("work", "Console Diary")).Copy
Set newWkbk = ActiveWorkbook

But any code behind those two worksheets will be brought over.

Hi all,
Have the following code ..
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Or OptionButton2.Value = True Then
If OptionButton1.Value = True Then SelDSet = OptionButton1.Tag
If OptionButton2.Value = True Then SelDSet = OptionButton2.Tag
Else
MsgBox "You must select a Dataset [X/Y]." _
, vbCritical + vbOKOnly, _
"Dataset Required."
OptionButton1.SetFocus
Exit Sub
End If

ResVal = MsgBox("Please confirm the following: " & Chr(13) & _
"Diary Date : " & TextBox3.Text & Chr(13) & _
"Dataset : " & SelDSet & Chr(13) _
, vbQuestion + vbYesNo + vbDefaultButton2, _
"Confirm Details.")

If ResVal = vbYes Then
Worksheets("Console Diary").Range("E2") _
= Format(TextBox3.Value, "mm/dd/yy")
Worksheets("Console Diary").Range("G2") _
= SelDSet

'************************************
Set Newbook = Workbooks.Add
fname = "\\BQL1\DATA\SHARE\ONCALL\DIARIES\Console Diary 20" &
Format(TextBox3.Value, "yymmdd") & ".xls"

Newbook.SaveAs FileName:=fname

'.Close SaveChanges:=False
'************************************
MsgBox "New Console Diary Created" & Chr(13) & "And Ready For Use.",
vbOKOnly, "Console Diary Creation Completed."

End If

End Sub
It's the last section between the '*' that I need help & direction. The new
XLS I'd like to create will contain the content and format of the "Console
Diary" Worksheet and the "Work" Worksheet, but not to contain the macro that
I've written into this XLS. How do I go about achiving this??

Copy of the XLS can be found here
Click to expand...
 
C

Cameron

Dave, thanks for the reply - helped me out quite a bit.
My revised code:
Code: 
If ResVal = vbYes Then
OrigFile = ActiveWorkbook.Name
'fdir = "\\BQL1\DATA\SHARE\ONCALL\DIARIES\"
fdir = "C:\Documents and Settings\Cameron\Desktop\XLS Testing\"
fname = "Console Diary " & Format(TextBox3.Value, "yyyymmdd") &
".xls"
'--------------------------------------------------------------'
' Check if Console Diary already exists ...
'--------------------------------------------------------------'
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FileExists(fdir & fname) Then
'--------------------------------------------------------------'
' Create new Console Diary ...
'--------------------------------------------------------------'
Worksheets(Array("Console Diary", "Work")).Copy
Set newWkbk = ActiveWorkbook
newWkbk.Worksheets("Console Diary").Range("E2") _
= Format(TextBox3.Value, "mm/dd/yy")
newWkbk.Worksheets("Console Diary").Range("G2") _
= SelDSet
newWkbk.Worksheets("Console Diary").Range("C4").Select
newWkbk.SaveAs Filename:=fdir & fname, FileFormat:=xlExcel9795
'--------------------------------------------------------------'
MsgBox "The new diary:" & Chr(13) & Chr(9) & fname & "." &
Chr(13) & Chr(13) & _
"Has been created in:" & Chr(13) & Chr(9) & fdir & "  " &
Chr(13) & Chr(13) & _
"and is now ready for use.", vbOKOnly, "Console Diary
Creation Completed."
UserForm1.Hide
Application.Workbooks(OrigFile).Close
Else
MsgBox "A Console Diary for the date (" & TextBox3.Text & _
") you have requested already exists." & Chr(13) & _
"Please check what date you wish a diary for or remove the
offending file." _
, vbCritical + vbOKOnly, "Console Diary Creation Failure."
Exit Sub
End If

End If
The FileSystemObject I've had a bit of trouble getting my mind around.
Can I improve on this anymore ??

Cheers,
Cam

Dave Peterson said:
It looks like your code could be behind a userform. If that's correct, then you
could just copy those two worksheets to a new workbook and that code won't come
with it.

Dim newWkbk As Workbook
'....
Worksheets(Array("work", "Console Diary")).Copy
Set newWkbk = ActiveWorkbook

But any code behind those two worksheets will be brought over.

Hi all,
Have the following code ..
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Or OptionButton2.Value = True Then
If OptionButton1.Value = True Then SelDSet = OptionButton1.Tag
If OptionButton2.Value = True Then SelDSet = OptionButton2.Tag
Else
MsgBox "You must select a Dataset [X/Y]." _
, vbCritical + vbOKOnly, _
"Dataset Required."
OptionButton1.SetFocus
Exit Sub
End If

ResVal = MsgBox("Please confirm the following: " & Chr(13) & _
"Diary Date : " & TextBox3.Text & Chr(13) & _
"Dataset : " & SelDSet & Chr(13) _
, vbQuestion + vbYesNo + vbDefaultButton2, _
"Confirm Details.")

If ResVal = vbYes Then
Worksheets("Console Diary").Range("E2") _
= Format(TextBox3.Value, "mm/dd/yy")
Worksheets("Console Diary").Range("G2") _
= SelDSet

'************************************
Set Newbook = Workbooks.Add
fname = "\\BQL1\DATA\SHARE\ONCALL\DIARIES\Console Diary 20" &
Format(TextBox3.Value, "yymmdd") & ".xls"

Newbook.SaveAs FileName:=fname

'.Close SaveChanges:=False
'************************************
MsgBox "New Console Diary Created" & Chr(13) & "And Ready For Use.",
vbOKOnly, "Console Diary Creation Completed."

End If

End Sub
It's the last section between the '*' that I need help & direction. The new
XLS I'd like to create will contain the content and format of the "Console
Diary" Worksheet and the "Work" Worksheet, but not to contain the macro that
I've written into this XLS. How do I go about achiving this??

Copy of the XLS can be found here
--------------------------------------------------------------------------
Click to expand...
--
Click to expand...
 
D

Dave Peterson

Does it work? <vbg>

The things I would do differently are:
Declare your variables (not shown in the snippet???)
And I'd use an object variable instead of the string OrigFile variable.

dim myWkbk as workbook
set myWkbk = activeworkbook
.....
myWkbk.close 'savechanges:=true 'false

And if this code is in the activeworkbook, you could just use ThisWorkbook.

And just for readability:
You could use vbTab for chr(9)
and vbnewline (or vblf) for chr(13).

But those are just arbitrary changes.

Dave, thanks for the reply - helped me out quite a bit.
My revised code:
Code: 
If ResVal = vbYes Then
OrigFile = ActiveWorkbook.Name
'fdir = "\\BQL1\DATA\SHARE\ONCALL\DIARIES\"
fdir = "C:\Documents and Settings\Cameron\Desktop\XLS Testing\"
fname = "Console Diary " & Format(TextBox3.Value, "yyyymmdd") &
".xls"
'--------------------------------------------------------------'
' Check if Console Diary already exists ...
'--------------------------------------------------------------'
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FileExists(fdir & fname) Then
'--------------------------------------------------------------'
' Create new Console Diary ...
'--------------------------------------------------------------'
Worksheets(Array("Console Diary", "Work")).Copy
Set newWkbk = ActiveWorkbook
newWkbk.Worksheets("Console Diary").Range("E2") _
= Format(TextBox3.Value, "mm/dd/yy")
newWkbk.Worksheets("Console Diary").Range("G2") _
= SelDSet
newWkbk.Worksheets("Console Diary").Range("C4").Select
newWkbk.SaveAs Filename:=fdir & fname, FileFormat:=xlExcel9795
'--------------------------------------------------------------'
MsgBox "The new diary:" & Chr(13) & Chr(9) & fname & "." &
Chr(13) & Chr(13) & _
"Has been created in:" & Chr(13) & Chr(9) & fdir & "  " &
Chr(13) & Chr(13) & _
"and is now ready for use.", vbOKOnly, "Console Diary
Creation Completed."
UserForm1.Hide
Application.Workbooks(OrigFile).Close
Else
MsgBox "A Console Diary for the date (" & TextBox3.Text & _
") you have requested already exists." & Chr(13) & _
"Please check what date you wish a diary for or remove the
offending file." _
, vbCritical + vbOKOnly, "Console Diary Creation Failure."
Exit Sub
End If

End If
The FileSystemObject I've had a bit of trouble getting my mind around.
Can I improve on this anymore ??

Cheers,
Cam

Dave Peterson said:
It looks like your code could be behind a userform. If that's correct, then you
could just copy those two worksheets to a new workbook and that code won't come
with it.

Dim newWkbk As Workbook
'....
Worksheets(Array("work", "Console Diary")).Copy
Set newWkbk = ActiveWorkbook

But any code behind those two worksheets will be brought over.

Hi all,
Have the following code ..
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Or OptionButton2.Value = True Then
If OptionButton1.Value = True Then SelDSet = OptionButton1.Tag
If OptionButton2.Value = True Then SelDSet = OptionButton2.Tag
Else
MsgBox "You must select a Dataset [X/Y]." _
, vbCritical + vbOKOnly, _
"Dataset Required."
OptionButton1.SetFocus
Exit Sub
End If

ResVal = MsgBox("Please confirm the following: " & Chr(13) & _
"Diary Date : " & TextBox3.Text & Chr(13) & _
"Dataset : " & SelDSet & Chr(13) _
, vbQuestion + vbYesNo + vbDefaultButton2, _
"Confirm Details.")

If ResVal = vbYes Then
Worksheets("Console Diary").Range("E2") _
= Format(TextBox3.Value, "mm/dd/yy")
Worksheets("Console Diary").Range("G2") _
= SelDSet

'************************************
Set Newbook = Workbooks.Add
fname = "\\BQL1\DATA\SHARE\ONCALL\DIARIES\Console Diary 20" &
Format(TextBox3.Value, "yymmdd") & ".xls"

Newbook.SaveAs FileName:=fname

'.Close SaveChanges:=False
'************************************
MsgBox "New Console Diary Created" & Chr(13) & "And Ready For Use.",
vbOKOnly, "Console Diary Creation Completed."

End If

End Sub
It's the last section between the '*' that I need help & direction. The new
XLS I'd like to create will contain the content and format of the "Console
Diary" Worksheet and the "Work" Worksheet, but not to contain the macro that
I've written into this XLS. How do I go about achiving this??

Copy of the XLS can be found here
--------------------------------------------------------------------------
Click to expand...
--
Click to expand...
Click to expand...
 
C

Cameron

Hi Dave,
For my first VB project of any kind in a bit over six years, I'm surprised
I've done this!!
And yes it does work (such joy!).
I had the variables declared prior - remembered to do that.
Have also updated the VbLf & vbTab changes - thanks for those.
Here is the entire sub ...
Code: 
Private Sub CommandButton1_Click()
' Author        :   Cameron Young
' Description   :   1)  Ensures X or Y datasets (options) selected.
'               :   2)  Confirms Date & Dataset details with User.
'               :   3)  Checks for an existing Diary - display message if
TRUE.
'               :   4)  Saves New Diary if above NOT Exist.
'               :   5) Closes this XLS and leaves New Diary open for use.
'
Date -----Who --Rev --Comment ----------------------------------------------
-------'
' 08/02/04  CJY   001   Initial Release.

Dim newWkbk As Workbook
Dim fs, f

If OptionButton1.Value = True Or OptionButton2.Value = True Then
If OptionButton1.Value = True Then SelDSet = OptionButton1.Tag
If OptionButton2.Value = True Then SelDSet = OptionButton2.Tag
Else
MsgBox "You must select a Dataset [X/Y]." _
, vbCritical + vbOKOnly, _
"Dataset Required."
OptionButton1.SetFocus
Exit Sub
End If

ResVal = MsgBox("Please confirm the following:  " & vbLf & _
"Diary Date :  " & TextBox3.Text & vbLf & _
"Dataset      :  " & SelDSet & vbLf _
, vbQuestion + vbYesNo + vbDefaultButton2, _
"Confirm Details.")

If ResVal = vbYes Then
OrigFile = ActiveWorkbook.Name
'fdir = "\\BQL1\DATA\SHARE\ONCALL\DIARIES\"
fdir = "C:\Documents and Settings\Cameron\Desktop\XLS Testing\"
''Used in Testing Only.
fname = "Console Diary " & Format(TextBox3.Value, "yyyymmdd") &
".xls"
'--------------------------------------------------------------'
' Check if Console Diary already exists ...
'--------------------------------------------------------------'
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FileExists(fdir & fname) Then
'--------------------------------------------------------------'
' Create new Console Diary ...
'--------------------------------------------------------------'
Worksheets(Array("Console Diary", "Work")).Copy
Set newWkbk = ActiveWorkbook
newWkbk.Worksheets("Console Diary").Range("E2") _
= Format(TextBox3.Value, "mm/dd/yy")
newWkbk.Worksheets("Console Diary").Range("G2") _
= SelDSet
newWkbk.Worksheets("Console Diary").Range("C4").Select
newWkbk.SaveAs Filename:=fdir & fname, FileFormat:=xlExcel9795
'--------------------------------------------------------------'
MsgBox "The new diary:" & vbLf & vbTab & fname & "." & vbLf &
vbLf & _
"Has been created in:" & vbLf & vbTab & fdir & "  " & vbLf &
vbLf & _
"and is now ready for use.", vbOKOnly, "Console Diary
Creation Completed."
UserForm1.Hide
Application.Workbooks(OrigFile).Close
Else
MsgBox "A Console Diary for the date (" & TextBox3.Text & _
") you have requested already exists." & vbLf & _
"Please check what date you wish a diary for or remove the
offending file." _
, vbCritical + vbOKOnly, "Console Diary Creation Failure."
Exit Sub
End If

End If

End Sub

Dave Peterson said:
Does it work? <vbg>

The things I would do differently are:
Declare your variables (not shown in the snippet???)
And I'd use an object variable instead of the string OrigFile variable.

dim myWkbk as workbook
set myWkbk = activeworkbook
....
myWkbk.close 'savechanges:=true 'false

And if this code is in the activeworkbook, you could just use ThisWorkbook.

And just for readability:
You could use vbTab for chr(9)
and vbnewline (or vblf) for chr(13).

But those are just arbitrary changes.

Dave, thanks for the reply - helped me out quite a bit.
My revised code:
Code: 
If ResVal = vbYes Then
OrigFile = ActiveWorkbook.Name
'fdir = "\\BQL1\DATA\SHARE\ONCALL\DIARIES\"
fdir = "C:\Documents and Settings\Cameron\Desktop\XLS Testing\"
fname = "Console Diary " & Format(TextBox3.Value, "yyyymmdd") &
".xls"
'--------------------------------------------------------------'
' Check if Console Diary already exists ...
'--------------------------------------------------------------'
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FileExists(fdir & fname) Then
 '--------------------------------------------------------------'
' Create new Console Diary ...
 '--------------------------------------------------------------'
Worksheets(Array("Console Diary", "Work")).Copy
Set newWkbk = ActiveWorkbook
newWkbk.Worksheets("Console Diary").Range("E2") _
= Format(TextBox3.Value, "mm/dd/yy")
newWkbk.Worksheets("Console Diary").Range("G2") _
= SelDSet
newWkbk.Worksheets("Console Diary").Range("C4").Select
newWkbk.SaveAs Filename:=fdir & fname, FileFormat:=xlExcel9795
 '--------------------------------------------------------------'
MsgBox "The new diary:" & Chr(13) & Chr(9) & fname & "." &
Chr(13) & Chr(13) & _
"Has been created in:" & Chr(13) & Chr(9) & fdir & "  " &
Chr(13) & Chr(13) & _
"and is now ready for use.", vbOKOnly, "Console Diary
Creation Completed."
UserForm1.Hide
Application.Workbooks(OrigFile).Close
Else
MsgBox "A Console Diary for the date (" & TextBox3.Text & _
") you have requested already exists." & Chr(13) & _
"Please check what date you wish a diary for or remove the
offending file." _
, vbCritical + vbOKOnly, "Console Diary Creation Failure."
Exit Sub
End If

End If
The FileSystemObject I've had a bit of trouble getting my mind around.
Can I improve on this anymore ??

Cheers,
Cam

Dave Peterson said:
It looks like your code could be behind a userform. If that's
Click to expand...
correct,
then you
could just copy those two worksheets to a new workbook and that code
Click to expand...
won't
come
with it.

Dim newWkbk As Workbook
'....
Worksheets(Array("work", "Console Diary")).Copy
Set newWkbk = ActiveWorkbook

But any code behind those two worksheets will be brought over.


Cameron wrote:

Hi all,
Have the following code ..
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Or OptionButton2.Value = True Then
If OptionButton1.Value = True Then SelDSet = OptionButton1.Tag
If OptionButton2.Value = True Then SelDSet = OptionButton2.Tag
Else
MsgBox "You must select a Dataset [X/Y]." _
, vbCritical + vbOKOnly, _
"Dataset Required."
OptionButton1.SetFocus
Exit Sub
End If

ResVal = MsgBox("Please confirm the following: " & Chr(13) & _
"Diary Date : " & TextBox3.Text & Chr(13) & _
"Dataset : " & SelDSet & Chr(13) _
, vbQuestion + vbYesNo + vbDefaultButton2, _
"Confirm Details.")

If ResVal = vbYes Then
Worksheets("Console Diary").Range("E2") _
= Format(TextBox3.Value, "mm/dd/yy")
Worksheets("Console Diary").Range("G2") _
= SelDSet

'************************************
Set Newbook = Workbooks.Add
fname = "\\BQL1\DATA\SHARE\ONCALL\DIARIES\Console Diary 20" &
Format(TextBox3.Value, "yymmdd") & ".xls"

Newbook.SaveAs FileName:=fname

'.Close SaveChanges:=False
'************************************
MsgBox "New Console Diary Created" & Chr(13) & "And Ready For Use.",
vbOKOnly, "Console Diary Creation Completed."

End If

End Sub
It's the last section between the '*' that I need help & direction.
Click to expand...
The
new
XLS I'd like to create will contain the content and format of the "Console
Diary" Worksheet and the "Work" Worksheet, but not to contain the
Click to expand...
macro
that
I've written into this XLS. How do I go about achiving this??

Copy of the XLS can be found here
Click to expand...
--------------------------------------------------------------------------
Click to expand...
Click to expand...
 
C

Cameron

Many thanks again Dave for your help.
(^5)


Dave Peterson said:
Does it work? <vbg>

The things I would do differently are:
Declare your variables (not shown in the snippet???)
And I'd use an object variable instead of the string OrigFile variable.

dim myWkbk as workbook
set myWkbk = activeworkbook
....
myWkbk.close 'savechanges:=true 'false

And if this code is in the activeworkbook, you could just use ThisWorkbook.

And just for readability:
You could use vbTab for chr(9)
and vbnewline (or vblf) for chr(13).

But those are just arbitrary changes.

Dave, thanks for the reply - helped me out quite a bit.
My revised code:
Code: 
If ResVal = vbYes Then
OrigFile = ActiveWorkbook.Name
'fdir = "\\BQL1\DATA\SHARE\ONCALL\DIARIES\"
fdir = "C:\Documents and Settings\Cameron\Desktop\XLS Testing\"
fname = "Console Diary " & Format(TextBox3.Value, "yyyymmdd") &
".xls"
'--------------------------------------------------------------'
' Check if Console Diary already exists ...
'--------------------------------------------------------------'
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FileExists(fdir & fname) Then
 '--------------------------------------------------------------'
' Create new Console Diary ...
 '--------------------------------------------------------------'
Worksheets(Array("Console Diary", "Work")).Copy
Set newWkbk = ActiveWorkbook
newWkbk.Worksheets("Console Diary").Range("E2") _
= Format(TextBox3.Value, "mm/dd/yy")
newWkbk.Worksheets("Console Diary").Range("G2") _
= SelDSet
newWkbk.Worksheets("Console Diary").Range("C4").Select
newWkbk.SaveAs Filename:=fdir & fname, FileFormat:=xlExcel9795
 '--------------------------------------------------------------'
MsgBox "The new diary:" & Chr(13) & Chr(9) & fname & "." &
Chr(13) & Chr(13) & _
"Has been created in:" & Chr(13) & Chr(9) & fdir & "  " &
Chr(13) & Chr(13) & _
"and is now ready for use.", vbOKOnly, "Console Diary
Creation Completed."
UserForm1.Hide
Application.Workbooks(OrigFile).Close
Else
MsgBox "A Console Diary for the date (" & TextBox3.Text & _
") you have requested already exists." & Chr(13) & _
"Please check what date you wish a diary for or remove the
offending file." _
, vbCritical + vbOKOnly, "Console Diary Creation Failure."
Exit Sub
End If

End If
The FileSystemObject I've had a bit of trouble getting my mind around.
Can I improve on this anymore ??

Cheers,
Cam

Dave Peterson said:
It looks like your code could be behind a userform. If that's
Click to expand...
correct,
then you
could just copy those two worksheets to a new workbook and that code
Click to expand...
won't
come
with it.

Dim newWkbk As Workbook
'....
Worksheets(Array("work", "Console Diary")).Copy
Set newWkbk = ActiveWorkbook

But any code behind those two worksheets will be brought over.


Cameron wrote:

Hi all,
Have the following code ..
Private Sub CommandButton1_Click()
If OptionButton1.Value = True Or OptionButton2.Value = True Then
If OptionButton1.Value = True Then SelDSet = OptionButton1.Tag
If OptionButton2.Value = True Then SelDSet = OptionButton2.Tag
Else
MsgBox "You must select a Dataset [X/Y]." _
, vbCritical + vbOKOnly, _
"Dataset Required."
OptionButton1.SetFocus
Exit Sub
End If

ResVal = MsgBox("Please confirm the following: " & Chr(13) & _
"Diary Date : " & TextBox3.Text & Chr(13) & _
"Dataset : " & SelDSet & Chr(13) _
, vbQuestion + vbYesNo + vbDefaultButton2, _
"Confirm Details.")

If ResVal = vbYes Then
Worksheets("Console Diary").Range("E2") _
= Format(TextBox3.Value, "mm/dd/yy")
Worksheets("Console Diary").Range("G2") _
= SelDSet

'************************************
Set Newbook = Workbooks.Add
fname = "\\BQL1\DATA\SHARE\ONCALL\DIARIES\Console Diary 20" &
Format(TextBox3.Value, "yymmdd") & ".xls"

Newbook.SaveAs FileName:=fname

'.Close SaveChanges:=False
'************************************
MsgBox "New Console Diary Created" & Chr(13) & "And Ready For Use.",
vbOKOnly, "Console Diary Creation Completed."

End If

End Sub
It's the last section between the '*' that I need help & direction.
Click to expand...
The
new
XLS I'd like to create will contain the content and format of the "Console
Diary" Worksheet and the "Work" Worksheet, but not to contain the
Click to expand...
macro
that
I've written into this XLS. How do I go about achiving this??

Copy of the XLS can be found here
Click to expand...
--------------------------------------------------------------------------
Click to expand...
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Changing the subject line of a message to a set format 3
Problems with repeated call of userform 4
open custom form 3
True or False for SNP or PDF format to email 12
Code to Accept only a 0 or this... 2
A97 Rst to XLS on Office 2007 client 2
Macro save as from Template 7
Use optionbutton value to select code to run. 5

Top