Elad

Bom dia. Sou novo no VBA. Tenho esse código abaixo e precisava que o relatório que ele produz em uma aba na realidade fosse feito em uma nova planilha de xls chamada dd.mm.aaaa toda vez que clicar no botão que aciona todo esse código. Como faço? Sub Extração_Relatório() Dim contacontabil As Double Dim i As Integer Sheets("Extr.Rel.").Select contacontabil = Range("Célula_de_extração").Value Sheets("Base de dados").Select i = 2 Range("A" & i).Select Do While ActiveCell.Value <> "" If ActiveCell.Value = contacontabil Then Range(Selection, Selection.Offset(0, 38)).Select Selection.Copy Sheets("Extr.Rel.").Select Range("B5").Select If ActiveCell.Value = "" Then Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _ xlNone, SkipBlanks:=False, Transpose:=False Else Selection.End(xlDown).Activate ActiveCell.Offset(1, 0).Activate End If ActiveCell.Offset(1, 0).Activate Sheets("Base de dados").Select i = i + 1 Else ActiveCell.Offset(1, 0).Activate i = i + 1 End If Loop End Sub