Nome do arquivo a ser salvo com o valor de uma variável.

[hugo.moreda]

Prezados amigos,

Sub nome_do_arquivo_=_data_atual()

'Dim dia As String

'Dim ano As String

'Dim mes As String

Dim LValue As String

Dim data As String

LValue = Format(Date, "yyyy/mm/dd")

Range("A1").Offset(1, 0).Value = LValue

data = Selection.NumberFormat = "[$-416]d mmmm, yy;@"

'gostaria que o arquivo salvasse com o nome da variável "data" ....Como eu faço ?'

Workbooks.Open Filename:= _

"Y:\marketing\Gerência\Resultados\Panorama de Campanhas\Panorama Geral de Campanhas_20121213.xlsx"

Sheets("Dados").Select

Range("C30").Select

Selection.ListObject.QueryTable.Refresh BackgroundQuery:=False

Sheets("TB DIM").Select

ActiveSheet.PivotTables("Tabela dinâmica1").PivotCache.Refresh

ActiveWorkbook.SaveAs Filename:= _

"Y:\marketing\Gerência\Resultados\Panorama de Campanhas\data.xlsx", _

FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

ActiveWindow.Close

End Sub

[lobismano]

Amigo,

Independente do qua a macro faça, para usar a variavel "data" como nome do arquivo basta usar:

"Y:\marketing\Gerência\Resultados\Panorama de Campanhas\" & data & ".xlsx"