Excel VBA Macros - Mudar a hora do sistema do computador

’Esta macro do Aplicativo Ms Excel emite uma mensagem, para mudar a hora do sistema - 'pergunta se deseja ou 'não alterar a hora do sistema de seu computador sim ou não resposta'.........................................'
Sub Mudar_data_Sistema()
Dim DATANOVA As Variant
If MsgBox("- Data do sistema: " & ; Format(Date, "dddddd") &  Chr(10) &  Chr(13) & "- Deseja Alterar?", 36, "Data Atual - Excel VBA Estudos®") = 6 Then
DATANOVA = InputBox("- Digite a nova data no formato dd/mm/aaaa ou pressione Enter para mantê-la")
If IsDate(DATANOVA) Then
Date = DATANOVAEnd IfEnd IfEnd Sub'.............................................'http://www.saberexcel.com
o Site das macros
Coleção de 25.000 Macros, Funções e Fórmulas do Aplicativo Excel VBA
'.....................................'