Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.
Public Sub DeleteAllAppended() If MsgBox("Are you sure? This will delete every report you have added.", vbOKCancel) = vbCancel Then Exit Sub End If Dim nRow As Long Dim nStart As Long, nEnd As Long 'Figure out where Appened Reports starts. For nRow = 1 To 1048576 If Range("A" & nRow).Value = "Created by:" Then nStart = nRow Exit For End If Next nRow nStart = nStart + 2 ' Figure out where Appened Reports end. For nRow = nStart To 1048576 If Range("A" & nRow).Value = "Totals" Then nEnd = nRow Exit For End If Next nRow nEnd = nEnd - 1 Range("A" & nStart & ":I" & nEnd).Delete End Sub
Join the community of 500,000 technology professionals and ask your questions.