Não sei se entendi corretamente,
Você quer apos executar Call monta_dia, o valor do InputBox em Public Sub monta_dia() seja preencchido com a data ?
Se for isto, você tem de definir as Variáveis, na Declaração do Módulo coloque :
Dim DataDia As Date
A sub teste ficaria :
Sub teste()
DataDia = Date
Call monta_dia
End Sub
E a monta_dia :
Public Sub monta_dia()
DataDia = InputBox(prompt:="Digite a data do dia anterior", Title:="Data do do Dia Anterior", Default:=DataDia)
If DataDia = vbNullString Then
Exit Sub
End If
End Sub
Veja no link abaixo como trabalhar com Variáveis :
Lição 08: VBA - Declaração de Variáveis
http://www.juliobattisti.com.br/cursos/ ... licao8.asp
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 22/03/2012 6:50 am