Miguel 70,
Boa Tarde!
Assim:
Sub Formatar_Coluna()'ate aqui tudo certo.
Dim UltimaLinha As Long
UltimaLinha = ActiveSheet.Cells(Cells.Rows.Count, 1).End(xlUp).Row + 20
Range("A9:A" & UltimaLinha).NumberFormat = "h:mm;@"
End Sub
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Postado : 23/04/2015 9:22 am