Marcus Casanova Nogueira

Entendi sim, Minoso! Obrigado pela Ajuda! Abraços

Obrigado por responder, Minoso! Desculpe a ignorância, mas não entendi ao certo o que o comando activecell.column faz. Pra questão da célula estar pintada de vermelho ou não, pensei em colocar um IF pra isso. Algo tipo: For i = 1 To contacoluna If Cells(1,n).interior.color = rgbred then Sheets.Add After:=ActiveSheet Sheets("Matriz").Select nome = ActiveCell.Offset(0, contacoluna - i).Value ActiveSheet.Next.Select ActiveSheet.Name = nome Sheets("Matriz").Select Next i end if End Sub Mas não sei se funcionaria corretamente. Abraços PS: Aparentemente deu certo este IF dentro do seu código. Mas se puder explicar como funciona o Activecell.column eu agradeceria muito! Abraços PS2: Modifiquei um pouco seu código pois em outra macro ja obtinha o número de células ocupadas na linha 1 (o Range("a24") : Sub Nova_Aba() Dim nome As String Application.ScreenUpdating = False For i = 1 To Range("a24") If Cells(1, i).Interior.Color = rgbRed Then Sheets.Add After:=ActiveSheet Sheets("Plan1").Select nome = Cells(1, i).Value Range("c20").Value = nome ActiveSheet.Next.Select ActiveSheet.Name = nome Sheets("Plan1").Select End If Next i End Sub Obrigado mesmo pela Ajuda! Abraços

E aí, pessoal? Tudo bem? Estou começando agora a programar em VBA e estou com dificuldade em uma parte: preciso criar novas abas de acordo com a quantidade de células pintadas de vermelho que estão na linha 1 na aba principal. Cada aba receberia o nome que estivesse nesta célula. Resumindo: o programa tem que analisar a primeira linha da aba principal e cada vez que encontrar uma célula vermelha deve abrir uma nova aba e nomear esta aba com o texto da célula em questão. Abraços Marcus