Abhishek A
Member
Hi,
I have 3 codes below.. Can you please merge it into single coding. I am using call option 3 times.
-------------------------------------------------------------------------------------------
MOD EDIT: Added Code tag.
I have 3 codes below.. Can you please merge it into single coding. I am using call option 3 times.
Code:
Sub Plan001()
Dim A As Range
Dim SrchRng
Set SrchRng = ActiveSheet.Range("A1", ActiveSheet.Range("A65536").End(xlUp))
Do
Set A = SrchRng.Find("PLAN 0-00001", LookIn:=xlValues)
If Not A Is Nothing Then A.EntireRow.Delete
Loop While Not A Is Nothing
End Sub
Sub DeleteCodes()
Dim B As Range
Dim SrchRng
Set SrchRng = ActiveSheet.Range("B1", ActiveSheet.Range("B65536").End(xlUp))
Do
Set B = SrchRng.Find("..CODES..", LookIn:=xlValues)
If Not B Is Nothing Then B.EntireRow.Delete
Loop While Not B Is Nothing
End Sub
Sub DeleteRejectmsg()
Dim B As Range
Dim SrchRng
Set SrchRng = ActiveSheet.Range("B2", ActiveSheet.Range("B65536").End(xlUp))
Do
Set B = SrchRng.Find("REJECT MESSAGES", LookIn:=xlValues)
If Not B Is Nothing Then B.EntireRow.Delete
Loop While Not B Is Nothing
End Sub
MOD EDIT: Added Code tag.
Last edited by a moderator: