Instruction Sheet to run macro

[LLT]

Hi Expert out there,

Need to seek your expertise. I have created a instruction sheet whereby I have a button which allows user to click on this button to run the macro for Estmt tab but it does not seem to work even if I put Sheets("Estmt") in the coding.

Thanks in advance for your help!

Sub Classification()
Dim lr As Long, r As Long
lr = Cells(Rows.Count, "C").End(xlUp).Row
For r = lr To 1 Step -1
' Classify - REPATRIATION
If Sheets("Estmt").Range("C" & r) Like "*REPAT*" Or Sheets("Estmt").Range("C" & r) Like "*SOUTH SHADY*" Then
Sheets("Estmt").Range("E" & r).Copy Destination:=Sheets("Estmt").Range("F" & r)
End If

 

[Glory]

What's the error you're receiving?

Have you tried splitting them up into two separate statements instead of using "Or" to join them together?

 

[LLT]

Hi Glory,

Pls ignore my post as I have resolved it by puting the code in red. Thanks so much for yr response.

Have a gd week ahead!

Sub Classification()
Dim lr As Long, r As Long
lr = Sheets("Estmt").Cells(Rows.Count, "C").End(xlUp).Row
For r = lr To 1 Step -1
' Classify - REPATRIATION
If Sheets("Estmt").Range("C" & r) Like "*REPAT*" Or Sheets("Estmt").Range("C" & r) Like "*SOUTH SHADY*" Then
Sheets("Estmt").Range("E" & r).Copy Destination:=Sheets("Estmt").Range("F" & r)
End If