cleaning up code

[arelh]

This macro creates a file that checks whether a macro has been run today or not - it assumes that a file named datestamp.xls exists - how can i clean up the code
regds to all Arelh

Sub datestamp()
Workbooks.Open Filename:="datestamp.xls"
Range("A2").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B1").Select
Selection.NumberFormat = "0.00"
ActiveCell.FormulaR1C1 = "=R[1]C[-1]-RC[-1]" '
Range("B2").Select
If Range("b1") > 0 Then
ActiveWindow.Close SaveChanges:=True
Workbooks.Add
ActiveCell.FormulaR1C1 = "= value(TODAY())"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A2").Select
SaveFileName = "datestamp.xls"
DataFile = SaveFileName
TestData = Dir(DataFile)
If Len(TestData) > 0 Then Kill DataFile
ActiveWorkbook.SaveAs Filename:=DataFile, FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close SaveChanges:=True
ElseIf Range("b1") = 0 Then
ActiveWindow.Close SaveChanges:=True
End
End If
End Sub

 

[Nimrod]

Sub datestampV2()
Workbooks.Open Filename:="datestamp.xls"

Select Case Date - Range("A1")
Case 0
ActiveWindow.Close SaveChanges:=True
Case Is > 0
ActiveWindow.Close SaveChanges:=True
Workbooks.Add
ActiveCell.Value = Date
If Len(Dir("datestamp.xls")) > 0 Then Kill DataFile
ActiveWorkbook.SaveAs Filename:="datestamp.xls"
ActiveWindow.Close SaveChanges:=True
Case Else
End Select
End Sub

 

[arelh]

Thanks nimrod - the reason datafile and savefilename are there is because therer are many files created in the other macros - the variable date in the case statement is to be declared as today()?
regds rob