July's Course of the Month is now available! Enroll to learn HTML5 and prepare for certification. It's free for Premium Members, Team Accounts, and Qualified Experts.
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
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.