I downlaoded a VBA script from XL-Logic.com called default_wb.zip. I wanted
to try this to see if it would work for my application. It was a sample on
how to automate the creation of workbooks and sheets. It was not what I
thought. Now every time I open a new workbook or sheet in Excel, this macro
starts and will not give me a blank sheet or workbook. I have copied the
scrip below to see if anyone can figure out how I get rid of this. Please
help, it is driving me crazy. Hee is the text that shows up on the workbook
when I start it, it is on sheet1, it says
"This workbook contains example macros that show how default sheets and
workbooks can be quickly created using VBA. The code allows you to set up
this workbook as you would like all new workbooks (worksheets) to appear.
When you run the macros, the appropriate default workbook/worksheet is saved
in the XLstart directory.".
I went to the XL start directory but there is nothing there. Please help.
Here are the two macros:

Sub WorkbookDefault()
Dim ans As Integer
ans = MsgBox(prompt:="New workbooks will be base on this workbook with
the same page setup, view options... Even the content will be the same." &
Chr(13) & Chr(13) & _
"This procedure can not be undone. Do you want to proceed?" &
Chr(13), Buttons:=vbYesNo)
If ans = vbNo Then End
Application.DisplayAlerts = False
If Application.AltStartupPath < "" And Dir(Application.AltStartupPath,
16) < "" Then
ActiveWorkbook.SaveAs Filename:=Application.AltStartupPath &
"\book.xlt", FileFormat:=xlTemplate
ActiveWindow.Close
End
End If
On Error GoTo 10
ActiveWorkbook.SaveAs Filename:=Application.StartupPath & "\book.xlt",
FileFormat:=xlTemplate
ActiveWindow.Close
End
10: If Application.DefaultFilePath < "" And
Dir(Application.DefaultFilePath, 16) < "" Then
MkDir Application.DefaultFilePath & "\xlstart"
Application.AltStartupPath = Application.DefaultFilePath & "\xlstart"
ActiveWorkbook.SaveAs Filename:=Application.AltStartupPath &
"\book.xlt", FileFormat:=xlTemplate
Else
MkDir "c:\xlstart"
Application.AltStartupPath = "c:\xlstart"
ActiveWorkbook.SaveAs Filename:=Application.AltStartupPath &
"\book.xlt", FileFormat:=xlTemplate
End If
ActiveWindow.Close
End Sub

Sub SheetDefault()
Dim Sh
Dim ans As Integer
ans = MsgBox(prompt:="New sheets will be base on this sheet with the
same page setup, view options... Even the content will be the same." &
Chr(13) & Chr(13) & _
"This procedure can not be undone. Do you want to proceed?" &
Chr(13), Buttons:=vbYesNo)
If ans = vbNo Then End
Application.DisplayAlerts = False
ActiveSheet.Copy
For Each Sh In ActiveWorkbook.Sheets
If Sh.Name < ActiveSheet.Name Then Sh.Delete
Next Sh
ActiveSheet.Name = " "
If Application.AltStartupPath < "" And Dir(Application.AltStartupPath,
16) < "" Then
ActiveSheet.SaveAs Filename:=Application.AltStartupPath &
"\sheet.xlt", FileFormat:=xlTemplate
ActiveWindow.Close
End
End If
On Error GoTo 10
ActiveSheet.SaveAs Filename:=Application.StartupPath & "\sheet.xlt",
FileFormat:=xlTemplate
ActiveWindow.Close
End
10: If Application.DefaultFilePath < "" And
Dir(Application.DefaultFilePath, 16) < "" Then
MkDir Application.DefaultFilePath & "\xlstart"
Application.AltStartupPath = Application.DefaultFilePath & "\xlstart"
ActiveSheet.SaveAs Filename:=Application.AltStartupPath &
"\sheet.xlt", FileFormat:=xlTemplate
Else
MkDir "c:\xlstart"
Application.AltStartupPath = "c:\xlstart"
ActiveSheet.SaveAs Filename:=Application.AltStartupPath &
"\sheet.xlt", FileFormat:=xlTemplate
End If
ActiveWindow.Close
End Sub


Thanks for any input

try
toolsoptionsgeneral"at startup"

--
Don Guillett
SalesAid Software

"JackR" wrote in message
...
I downlaoded a VBA script from XL-Logic.com called default_wb.zip. I wanted
to try this to see if it would work for my application. It was a sample on
how to automate the creation of workbooks and sheets. It was not what I
thought. Now every time I open a new workbook or sheet in Excel, this
macro
starts and will not give me a blank sheet or workbook. I have copied the
scrip below to see if anyone can figure out how I get rid of this. Please
help, it is driving me crazy. Hee is the text that shows up on the
workbook
when I start it, it is on sheet1, it says
"This workbook contains example macros that show how default sheets and
workbooks can be quickly created using VBA. The code allows you to set up
this workbook as you would like all new workbooks (worksheets) to appear.
When you run the macros, the appropriate default workbook/worksheet is
saved
in the XLstart directory.".
I went to the XL start directory but there is nothing there. Please help.
Here are the two macros:

Sub WorkbookDefault()
Dim ans As Integer
ans = MsgBox(prompt:="New workbooks will be base on this workbook with
the same page setup, view options... Even the content will be the same." &
Chr(13) & Chr(13) & _
"This procedure can not be undone. Do you want to proceed?" &
Chr(13), Buttons:=vbYesNo)
If ans = vbNo Then End
Application.DisplayAlerts = False
If Application.AltStartupPath < "" And Dir(Application.AltStartupPath,
16) < "" Then
ActiveWorkbook.SaveAs Filename:=Application.AltStartupPath &
"\book.xlt", FileFormat:=xlTemplate
ActiveWindow.Close
End
End If
On Error GoTo 10
ActiveWorkbook.SaveAs Filename:=Application.StartupPath & "\book.xlt",
FileFormat:=xlTemplate
ActiveWindow.Close
End
10: If Application.DefaultFilePath < "" And
Dir(Application.DefaultFilePath, 16) < "" Then
MkDir Application.DefaultFilePath & "\xlstart"
Application.AltStartupPath = Application.DefaultFilePath &
"\xlstart"
ActiveWorkbook.SaveAs Filename:=Application.AltStartupPath &
"\book.xlt", FileFormat:=xlTemplate
Else
MkDir "c:\xlstart"
Application.AltStartupPath = "c:\xlstart"
ActiveWorkbook.SaveAs Filename:=Application.AltStartupPath &
"\book.xlt", FileFormat:=xlTemplate
End If
ActiveWindow.Close
End Sub

Sub SheetDefault()
Dim Sh
Dim ans As Integer
ans = MsgBox(prompt:="New sheets will be base on this sheet with the
same page setup, view options... Even the content will be the same." &
Chr(13) & Chr(13) & _
"This procedure can not be undone. Do you want to proceed?" &
Chr(13), Buttons:=vbYesNo)
If ans = vbNo Then End
Application.DisplayAlerts = False
ActiveSheet.Copy
For Each Sh In ActiveWorkbook.Sheets
If Sh.Name < ActiveSheet.Name Then Sh.Delete
Next Sh
ActiveSheet.Name = " "
If Application.AltStartupPath < "" And Dir(Application.AltStartupPath,
16) < "" Then
ActiveSheet.SaveAs Filename:=Application.AltStartupPath &
"\sheet.xlt", FileFormat:=xlTemplate
ActiveWindow.Close
End
End If
On Error GoTo 10
ActiveSheet.SaveAs Filename:=Application.StartupPath & "\sheet.xlt",
FileFormat:=xlTemplate
ActiveWindow.Close
End
10: If Application.DefaultFilePath < "" And
Dir(Application.DefaultFilePath, 16) < "" Then
MkDir Application.DefaultFilePath & "\xlstart"
Application.AltStartupPath = Application.DefaultFilePath &
"\xlstart"
ActiveSheet.SaveAs Filename:=Application.AltStartupPath &
"\sheet.xlt", FileFormat:=xlTemplate
Else
MkDir "c:\xlstart"
Application.AltStartupPath = "c:\xlstart"
ActiveSheet.SaveAs Filename:=Application.AltStartupPath &
"\sheet.xlt", FileFormat:=xlTemplate
End If
ActiveWindow.Close
End Sub


Thanks for any input

I tried that it is blank. Any other ideas

"Don Guillett" wrote:

try
toolsoptionsgeneral"at startup"

--
Don Guillett
SalesAid Software

"JackR" wrote in message
...
I downlaoded a VBA script from XL-Logic.com called default_wb.zip. I wanted
to try this to see if it would work for my application. It was a sample on
how to automate the creation of workbooks and sheets. It was not what I
thought. Now every time I open a new workbook or sheet in Excel, this
macro
starts and will not give me a blank sheet or workbook. I have copied the
scrip below to see if anyone can figure out how I get rid of this. Please
help, it is driving me crazy. Hee is the text that shows up on the
workbook
when I start it, it is on sheet1, it says
"This workbook contains example macros that show how default sheets and
workbooks can be quickly created using VBA. The code allows you to set up
this workbook as you would like all new workbooks (worksheets) to appear.
When you run the macros, the appropriate default workbook/worksheet is
saved
in the XLstart directory.".
I went to the XL start directory but there is nothing there. Please help.
Here are the two macros:

Sub WorkbookDefault()
Dim ans As Integer
ans = MsgBox(prompt:="New workbooks will be base on this workbook with
the same page setup, view options... Even the content will be the same." &
Chr(13) & Chr(13) & _
"This procedure can not be undone. Do you want to proceed?" &
Chr(13), Buttons:=vbYesNo)
If ans = vbNo Then End
Application.DisplayAlerts = False
If Application.AltStartupPath < "" And Dir(Application.AltStartupPath,
16) < "" Then
ActiveWorkbook.SaveAs Filename:=Application.AltStartupPath &
"\book.xlt", FileFormat:=xlTemplate
ActiveWindow.Close
End
End If
On Error GoTo 10
ActiveWorkbook.SaveAs Filename:=Application.StartupPath & "\book.xlt",
FileFormat:=xlTemplate
ActiveWindow.Close
End
10: If Application.DefaultFilePath < "" And
Dir(Application.DefaultFilePath, 16) < "" Then
MkDir Application.DefaultFilePath & "\xlstart"
Application.AltStartupPath = Application.DefaultFilePath &
"\xlstart"
ActiveWorkbook.SaveAs Filename:=Application.AltStartupPath &
"\book.xlt", FileFormat:=xlTemplate
Else
MkDir "c:\xlstart"
Application.AltStartupPath = "c:\xlstart"
ActiveWorkbook.SaveAs Filename:=Application.AltStartupPath &
"\book.xlt", FileFormat:=xlTemplate
End If
ActiveWindow.Close
End Sub

Sub SheetDefault()
Dim Sh
Dim ans As Integer
ans = MsgBox(prompt:="New sheets will be base on this sheet with the
same page setup, view options... Even the content will be the same." &
Chr(13) & Chr(13) & _
"This procedure can not be undone. Do you want to proceed?" &
Chr(13), Buttons:=vbYesNo)
If ans = vbNo Then End
Application.DisplayAlerts = False
ActiveSheet.Copy
For Each Sh In ActiveWorkbook.Sheets
If Sh.Name < ActiveSheet.Name Then Sh.Delete
Next Sh
ActiveSheet.Name = " "
If Application.AltStartupPath < "" And Dir(Application.AltStartupPath,
16) < "" Then
ActiveSheet.SaveAs Filename:=Application.AltStartupPath &
"\sheet.xlt", FileFormat:=xlTemplate
ActiveWindow.Close
End
End If
On Error GoTo 10
ActiveSheet.SaveAs Filename:=Application.StartupPath & "\sheet.xlt",
FileFormat:=xlTemplate
ActiveWindow.Close
End
10: If Application.DefaultFilePath < "" And
Dir(Application.DefaultFilePath, 16) < "" Then
MkDir Application.DefaultFilePath & "\xlstart"
Application.AltStartupPath = Application.DefaultFilePath &
"\xlstart"
ActiveSheet.SaveAs Filename:=Application.AltStartupPath &
"\sheet.xlt", FileFormat:=xlTemplate
Else
MkDir "c:\xlstart"
Application.AltStartupPath = "c:\xlstart"
ActiveSheet.SaveAs Filename:=Application.AltStartupPath &
"\sheet.xlt", FileFormat:=xlTemplate
End If
ActiveWindow.Close
End Sub


Thanks for any input