Experimente assim:

Substitua:

For x = dt To Sheets("Parâmetros").Range("h1").Value

.....

Next

Por:

Do While dt <= Sheets("Parâmetros").Range("h1").Value
.....
Loop

Boa tarde!!

Eu olhei bem rápido mas isso pode te ajudar.

CDate(Sheets("Parâmetros").Range("h1").Value) 

Att

Esqueci de mencionar, se quiser o mes 9/2012 inclusive, então altere a data em H1 para 30/9/2012 (está como 1/9/2012)

Reinaldo, sua sugestão deu certo!
Alexandre, tentei também a sua sugestão, porém não surtiu efeito, talvez eu não tenha entendido direito, mas como a sugestão do Reinaldo resolveu o problema acabei ficando com ela.
Muitíssimo obrigada!

Boa tarde!!

Lembre se de marcar sua postagem como resolvido!!

Como marcar Tópico como Resolvido e Agradecer a mensagem?
viewtopic.php?f=7&t=3784
Att

Aproveitando o tópico, só para encerrar de vez esta macro, após baixar as cotações e copiar os dados para uma outra planilha e salvar, eu preciso "limpar" esta planilha, exceto a aba "Parâmetro". Pensei neste comando, mas como são 149 sheets, achei que deixará o código muito longo:

Sheets(Array(2, 3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,23,......até 149)).ClearContents

Vocês sugeririam outro comando que não fosse tão longo?

Desde já agradeço mais uma vez,
Milena

Boa tarde!!
Tente adaptar

Sub Limpar_AleVBA()
  Sheets(1).Range("A1:H1000").Clear
  Sheets.FillAcrossSheets Sheets(1).Range("A1:H1000")
End Sub

Att

Uma possibilidade

Sub limpa()
For Each sh In Sheets
If sh.Name <> "Parâmetros" Then
sh.UsedRange.ClearContents
End If
Next
End Sub

Alexandre, não entendi essa macro, pq ela está apagando a plan "Parâmetro", mas eu gostaria de apagar todas, exceto a Parametro.

Boa tarde!!

Não foi feito diferenciando sua guia principal.
Como eu disse!!...Tente adaptar

Boa tarde!!
Tente adaptar
CÓDIGO: SELECIONAR TODOS
Sub Limpar_AleVBA()
Sheets(1).Range("A1:H1000").Clear
Sheets.FillAcrossSheets Sheets(1).Range("A1:H1000")
End Sub

Att

Use a do ronaldo!!!

sh.Name <> "Parâmetros" Then

A Macro do Reinaldo, deu certo!

Sem querer abusar, mas já abusando, eu não tenho muita prática com o Do While, sugerido na primeira resposta, só que a macro após salvar a planilha no seu devido lugar, ao invés de fazer o loop de novo na nova empresa, baixando as cotações da outra empresa (linha seguinte), a rotina está indo para o final sem baixar. Onde eu errei?

Veja a macro concluída:
Sub BaixarCotações()

Dim Pasta
Dim Nrsas As Integer
Dim NomePlanilha
Dim NomeEmpresa
Dim dt As Date, Td As String

Sheets("Parâmetros").Select
'Declara as variáveis
Nrsas = Worksheets("Parâmetros").Cells(Cells.Rows.Count, "A").End(xlUp).Row
Pasta = ActiveWorkbook.Path & "BalançosCotações Históricas"
dt = #9/30/2004#

For i = 2 To Nrsas

NomeEmpresa = Sheets("Parâmetros").Range("D" & i)
NomePlanilha = Sheets("Parâmetros").Range("D" & i) & " Cotacoes"

Do While dt <= Sheets("Parâmetros").Range("h1").Value
Td = Format(dt, "MM-YYYY")

Sheets(Td).Select

Td = Format(dt, "MM/YYYY")

Range("A1").Select
With ActiveSheet.QueryTables.Add(Connection:= _
"URL; http://www.bmfbovespa.com.br/sig/FormConsultaMercVista.asp?strTipoResumo=RES_MERC_VISTA&strSocEmissora=" & NomeEmpresa & "&strDtReferencia=" & Td & "&strIdioma=P&intCodNivel=2&intCodCtrl=160#", _
Destination:=Range("a1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = True
.Refresh BackgroundQuery:=False
.SaveData = True
End With

Td = Format(dt, "MM-YYYY")

'Faz o teste para verificar se a empresa tem a cotação para esta data.
If Sheets(Td).Range("a4").Value Like "*Não*" Then
Sheets(Td).Select
Cells.Select
Selection.Delete Shift:=xlUp
Else
End If

dt = DateAdd("m", 3, dt)
Loop

Sheets.Select
Sheets.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:= _
Pasta & "" & NomePlanilha & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ActiveWorkbook.Close

Call limpa
' Aqui, eu coloco +1 para ir para a linha 2 e baixar os balanços da 2º empresa.
i = i + 1
Next

End Sub

Descobri, é que o While estava "memorizado" a última data, então bastou zerar a data de novo para funcionar.

Fico aqui imensamente agradecida à vocês dois pela ajuda e paciencia.

Obrigada,
Milena

Não é o while que memoriza a data, e que dt inicial está fora do for..next
se mudar a posição da definição do dt inicial
de:

dt = #9/30/2004#

For i = 2 To Nrsas

para:

For i = 2 To Nrsas
dt = #9/30/2004#

Vai "rodar" normal tb