All sorts of threat intelligence is available on the web. Intelligence you can learn from, and use to anticipate and prepare for future attacks.
Private Sub btnProcess_Click() Dim strPercent2 As String strPercent2 = Me.txtPercentage.Value Dim sngPercent2 As Single Dim strSearch As String If IsNumeric(strPercent2) Then sngPercent2 = CSng(strPercent2) Do While sngPercent2 > 0.1 strSearch = CStr(sngPercent2) Dim i As Long i = 1 Do Until i > Cells(65536, "a").End(xlUp).Row If InStr(Trim(Cells(i, "a").Value), strSearch) > 0 Then Rows(i - 1 & ":" & i + 3).delete Else i = i + 1 End If Loop MsgBox CStr(sngPercent2) Application.ScreenUpdating = True sngPercent2 = sngPercent2 - 0.1 Loop Else End If End Sub
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
19 Experts available now in Live!