software

I downloaded 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. Here is the text that shows up on the workbook
when I start it, it is on sheet1, it says
quot;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.quot;.
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:=quot;New workbooks will be base on this workbook with
the same page setup, view options... Even the content will be the same.quot; amp;
Chr(13) amp; Chr(13) amp; _
quot;This procedure can not be undone. Do you want to proceed?quot; amp;
Chr(13), Buttons:=vbYesNo)
If ans = vbNo Then End
Application.DisplayAlerts = False
If Application.AltStartupPath lt;gt; quot;quot; And Dir(Application.AltStartupPath,
16) lt;gt; quot;quot; Then
ActiveWorkbook.SaveAs Filename:=Application.AltStartupPath amp;
quot;\book.xltquot;, FileFormat:=xlTemplate
ActiveWindow.Close
End
End If
On Error GoTo 10
ActiveWorkbook.SaveAs Filename:=Application.StartupPath amp; quot;\book.xltquot;,
FileFormat:=xlTemplate
ActiveWindow.Close
End
10: If Application.DefaultFilePath lt;gt; quot;quot; And
Dir(Application.DefaultFilePath, 16) lt;gt; quot;quot; Then
MkDir Application.DefaultFilePath amp; quot;\xlstartquot;
Application.AltStartupPath = Application.DefaultFilePath amp; quot;\xlstartquot;
ActiveWorkbook.SaveAs Filename:=Application.AltStartupPath amp;
quot;\book.xltquot;, FileFormat:=xlTemplate
Else
MkDir quot;c:\xlstartquot;
Application.AltStartupPath = quot;c:\xlstartquot;
ActiveWorkbook.SaveAs Filename:=Application.AltStartupPath amp;
quot;\book.xltquot;, FileFormat:=xlTemplate
End If
ActiveWindow.Close
End Sub

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

Try checking C:\Documents and Settings\User Name\Application
Data\Microsoft\Excel\XLSTART. You will need to unhide your files and
folders first.

I had a similar problem and ended up having to do an advance search. I
ended up finding the macro in he C:\Program Files\Microsoft
Office\OFFICE11\XLStart

Hope this helps--
keithl816
------------------------------------------------------------------------
keithl816's Profile: www.excelforum.com/member.php...oamp;userid=21287
View this thread: www.excelforum.com/showthread...hreadid=523219I looked in there before, there is nothing there, I did unhide the folder and
there is nothing - it is empty.

quot;keithl816quot; wrote:

gt;
gt; Try checking C:\Documents and Settings\User Name\Application
gt; Data\Microsoft\Excel\XLSTART. You will need to unhide your files and
gt; folders first.
gt;
gt; I had a similar problem and ended up having to do an advance search. I
gt; ended up finding the macro in he C:\Program Files\Microsoft
gt; Office\OFFICE11\XLStart
gt;
gt; Hope this helps
gt;
gt;
gt; --
gt; keithl816
gt; ------------------------------------------------------------------------
gt; keithl816's Profile: www.excelforum.com/member.php...oamp;userid=21287
gt; View this thread: www.excelforum.com/showthread...hreadid=523219
gt;
gt;