Sub FileSave()
Dim D As Variant
Dim T As Variant
[D] = Format(Date, "mm-dd-yyyy")
If Time = "12:00 PM" Then
[T] = "PM"
End If
If Time <= "12:00 AM" Then
[T] = "AM"
End If

ThisWorkbook.SaveAs Filename:="" & [D] & " " & [T] & ""

End Sub


--
dok112
------------------------------------------------------------------------
dok112's Profile: http://www.excelforum.com/member.php...o&userid=10581
View this thread: http://www.excelforum.com/showthread...hreadid=538238