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") :

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