Bom dia!

Prezados, por favor, será que alguém poderia me ajudar?

Eu tenho esse código abaixo:

Application.EnableCancelKey = xlDisabled

    Dim dt As Date

    'Escolha a data em a Pasta de Trabalho deverá expirar (ano, mês, dia)
     dt = DateSerial(2018, 2, 23)
     If Date >= dt Then
     MsgBox "Esta Pasta de Trabalho expirou! Favor contatar o administrador."
  ThisWorkbook.Close SaveChanges:=False
  End If

Tem como acrescentar mais um linha informado quantos dias ainda restam para usar a planilha?

Exemplo: quando estiver perto do dia 23/02/2018, vai aparecer uma mensagem para o usuário: EM 2 DIAS A PLANILHA AAAAA NÃO VAI MAS FUNCIONAR, PARA SOLICITAR MAIS DIAS ENTRAR EM CONTATO COM JNEXCEL.

Muito obrigado a todos pela atenção.