No exercício é pedido "Crie um script para percorrer todas as planilhas do seu arquivo e deixar o tipo da fonte como Tahoma, tamanho 10. " Utilizando For Each e Cells (igual na resposta do exercício), consegui que o tamanho da fonte seja alterado, mas o estilo não, até mesmo testei Cells.Font.FontStyle = "tahoma", mas sem sucesso.
Sub Exercicio1()
Dim planilha As Object
For Each planilha In Worksheets
planilha.Select
Cells.Font.Size = 10
Cells.Font.FontStyle = “Tahoma”
Next
End Sub
