What is wrong with my syntax? :x
Sub Button84_Click()
With Sheets("Database")
ActiveSheet.Unprotect "COMPS"
If .Selection.AutoFilter Field:=10, Criteria1:="X" Then .Range("C6:J6").Copy
End If
ActiveSheet.Protect "COMPS"
End With
End Sub
someone must know?.?.?.
Sub Button84_Click()
With Sheets("Database")
ActiveSheet.Unprotect "COMPS"
If .Selection.AutoFilter Field:=10, Criteria1:="X" Then .Range("C6:J6").Copy
End If
ActiveSheet.Protect "COMPS"
End With
End Sub
someone must know?.?.?.