Sub Update()
Dim fs
Dim filepath As String
' close Loan workbook.
ActiveWorkbook.Close SaveChanges:=False
' locate file path
Application.RecentFiles.Item(0).Path = filepath
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile = filepath
End Sub
Sub CloseAndDelete()
Dim strFileAndPath As String
strFileAndPath = Workbooks("NameOfFirstWorkbook.xlsm").FullName
Workbooks("NameOfFirstWorkbook.xlsm").Close
Kill strFileAndPath
End Sub
dim x as integer
dim MostRecentFiletoDelete as string
x = Application.RecentFiles.Count
do until x = 0
If IsError(instr(applicaiton.recentfiles.item(x).path,"NameOfWorkbookToDelete")) Then
x=x-1
loop
else
MostRecentFiletoDelete = application.recentfiles.item(x).path
x=x-1
End if
loop
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile = MostRecentFiletoDelete
Sub Update()
Dim filepath As String
' get path and filename of workbook you are just about to close
filepath = ActiveWorkbook.FullName
' close Loan workbook.
ActiveWorkbook.Close SaveChanges:=False
' delete the workbook
Kill filepath
End Sub
Once the update.xlsm opens, I have a macro in that workbook that closes the original workbook.
Sub Update()
Dim x As Integer
Dim MostRecentFiletoDelete As String
Dim fs
' close Loan workbook.
ActiveWorkbook.Close SaveChanges:=False
' deletes old copy of LoansTracking.xlsm
x = Application.RecentFiles.Count
Do Until x = 0
If IsError(InStr(applicaiton.RecentFiles.Item(x).Path, "LoanStatsTracking.xlsm")) Then
x = x - 1
Else
MostRecentFiletoDelete = Application.RecentFiles.Item(x).Path
x = x - 1
End If
Loop
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile = MostRecentFiletoDelete
Debug.Print
End Sub
'Sub Update()
'Dim filepath As String
'
'' get path and filename of workbook you are just about to close
'filepath = ActiveWorkbook.FullName
'
'' close Loan workbook.
'ActiveWorkbook.Close SaveChanges:=False
'
'' delete the workbook
'
'Kill filepath
'End Sub
dim x as integer
dim MostRecentFiletoDelete as string
x = Application.RecentFiles.Count
do until x = 0
If instr(Application.recentfiles.item(x).path,"LoanStatsTracking.xlsm") > 0 Then
MostRecentFiletoDelete = application.recentfiles.item(x).path
x=x-1
else
x=x-1
End if
loop
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile = MostRecentFiletoDelete
Private Sub Workbook_Open()
Application.OnKey "{Down}", "GreenFill"
End Sub
Module:
Sub GreenFill()
'
' GreenFill Macro
'
' Keyboard Shortcut: Ctrl+g
'
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 5287936
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
Check this out:
http://msdn.microsoft.com/en-us/library/ff197180.aspx