Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.
NumRows = Application.InputBox("How many rows do you wish to add?", Type:=1) UpperBound = NumRows 'Display if user chooses Cancel button If NumRows = False Then MsgBox "Add function cancelled", vbInformation Application.EnableEvents = True Exit Sub End If 'Add number of rows specified lastRow = findLastRows For counter = 1 To UpperBound Rows(lastRow + 1).Select Selection.Insert shift:=xlDown lastRow = lastRow + 1 newRow = Rows(lastRow).Row ReDim Preserve AddNewRowArray(UpperBound) AddNewRowArray(counter) = newRow Rows(lastRow - 1).Copy Rows(newRow).PasteSpecial _ Paste:=xlPasteFormats Next counter
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.