Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, [D3]) Is Nothing Then
Target = UCase(Target)
End If
End Sub
Private Sub putdate()
Dim vDate As String
vDate = Date
vDate = Format(vDate, "dd mmm yyyy")
Range("D1") = vDate
Dim Vdatelastsave
Vdatecreation = ActiveWorkbook.BuiltinDocumentProperties("Last Save Time").Value
Vdatecreation = Format(Vdatecreation, "dd mmm yyyy")
Range("x1") = Vdatecreation
End Sub