Miguel Olivan

Dante Amor respondió: Si el combo lo tienes en un userform: Private Sub UserForm_Activate() 'Por.Dante Amor For Each h In Sheets If h.Range("J1") <> 0 Then ComboBox1.AddItem h.Name h.Select End If Next End Sub Dices que te seleccione la hoja, pero si varias hojas tiene J1...

James Bond respondió: Prueba con esta macro Sub copiar() hoja = ActiveSheet.Name Set origen = Worksheets(hoja).Range("a1").CurrentRegion nombre = Range("a2") On Error Resume Next Sheets(nombre).Select If Err.Number > 0 Then Worksheets.Add.Name = nombre On Error GoTo 0 hd...