Extra save

[Andrew]

hi Al
Below i have what i use to save a file as an i.d number once it has been updated by a workbook macro. Somehow i want to save the file as it's current name before this kicks in, but after it has updated the number. The text below is saved in the worksheet module

Private Sub Worksheet_Change(ByVal Target As Range
If Not Application.Intersect(Target, Range("I2")) Is Nothing The
ThisWorkbook.SaveAs Filename:="C:\My Documents\UW Forms\" & Target.Value, FileFormat:=xlWorkbookNorma
End I
End Su

The current path of the original file is "C:\My Documents\UW Forms\UW Template.xlt

Any Suggestions more than welcome

Thank

 

[Tom Ogilvy]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("I2")) Is Nothing Then
Application.DisplayAlerts = False
Thisworkbook.SaveAs Filename:= _
"C:\My Documents\UW Forms\UW Template.xlt", _
Fileformat = xlTemplate
Application.DisplayAlerts = True
ThisWorkbook.SaveAs Filename:="C:\My Documents\UW Forms\" & _
Target.Value, FileFormat:=xlWorkbookNormal
End If
End Sub

--
Regards,
Tom Ogilvy
_

hi All
Below i have what i use to save a file as an i.d number once it has been

updated by a workbook macro. Somehow i want to save the file as it's current
name before this kicks in, but after it has updated the number. The text
below is saved in the worksheet module: