Nombre hoja macro

Sub Macro1()
Dim archivo As String
ruta = "\\Spirit\group\cecor\SG\5-Procesos\Desarrollar_Procesos\TRABAJOS\2009\"
archivo = Dir(ruta, vbDirectory)
Dim cont As Long
Dim hoja As Long
cont = 6
Dim filault As Integer
Dim filault1 As Integer
While archivo <> ""
    If archivo Like "T-09-001*" Or archivo Like "T-09-002*" Then
        'If archivo Like "T-09-003*" Or archivo Like "T-09-014*" Or archivo Like "T-09-015*" Then
            'Workbooks.Open Filename:="\\Spirit\group\cecor\SG\5-Procesos\Desarrollar_Procesos\TRABAJOS\2009\" & archivo & "\kk.xls"
        'Else
            Workbooks.Open Filename:="\\Spirit\group\cecor\SG\5-Procesos\Desarrollar_Procesos\TRABAJOS\2009\" & archivo & "\1_Comunicacion\4_Retroalimentacion\kk.xls"
            For i = 1 To Worksheets.Count
                hoja = i
                If i = 1 Then
                    Range("B10").Select
                     c = Selection.Copy
                ActiveWindow.WindowState = xlMinimized
                End If
                If i = 2 Then
                    Range("C20").Select
                     c = Selection.Copy
                End If
                If i = 3 Then
                    Range("D30").Select
                     c = Selection.Copy
                End If
                If i > 3 Then
                    Range("D30").Select
                     c = Selection.Copy
                End If
                a = "D" & cont & ""
                Range(a).Select
                ActiveSheet.Paste
                b = "A" & cont & ""
                Range(b).Select
                ActiveCell.Value = (archivo & " HOJA:" & hoja)
            cont = cont + 1
            Next i
           'Workbooks.Close Filename:="\\Spirit\group\cecor\SG\5-Procesos\Desarrollar_Procesos\TRABAJOS\2009\" & archivo & "\1_Comunicacion\4_Retroalimentacion\kk.xls"
End If
    archivo = Dir
Wend
Range("G8").Select
ActiveCell.FormulaR1C1 = "SUM(D6:D)"
End Sub
Hola
Tengo este código. Y estoy intentando que cada vez que copie de cada hoja el daro me escriba el nombre de la hoja directamente, pero no se como hacerlo con sheet.name...
Otra cosa es que necesito ir cambiando de archivo excel según va copiando, pero al hacer una vez el bucle no sabe cual es la hoja activa y me cierra la que no es. Quiero que capture celdas que yo le digo de los archivos kk.xls y recorra sus hojas, y una vez echo lo copie al ecel princpial, cierre kkxls y busque el siguiente...
Gracias