Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
Sub FillNum() Dim myRange As Range Set myRange = Cells.Find(What:="*", after:=[Q2], SearchOrder:=xlByRows, SearchDirection:=xlPrevious) Set myRange = Range(Cells(3, 1), Cells(myRange.Row, 1)) With myRange .NumberFormat = "General" .FormulaR1C1 = "=""0000""&ROW()-2" .NumberFormat = "@" .Value = .Value End With End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.