DESPERATE FOR HELP ON THIS PROBLEM...please


G

Guest

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
"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
 
Ad

Advertisements

K

keithl816

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

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

Hope this help
 
Ad

Advertisements

G

Guest

I looked in there before, there is nothing there, I did unhide the folder and
there is nothing - it is empty.
 

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


Top