Pessoal, consegui o código. Ficou assim: Private Sub btnGerarCarne_Click() Call Macro2 Dim qtdeParc As Integer Dim dataVenc As Date Dim x...