[vba]
Sub Time()
With ActiveCell
.Value = Now
.NumberFormat = "h:mm AM/PM"
End With
End Sub
[/vba]
[vba]
Sub Time()
With ActiveCell
.Value = Now
.NumberFormat = "h:mm AM/PM"
End With
End Sub
[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote