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
Gain unlimited access to on-demand training courses with an Experts Exchange subscription.Get Access
When asked, what has been your best career decision?
Deciding to stick with EE.
Being involved with EE helped me to grow personally and professionally.