Turn any cell into an interactive button Help fix one problem - Run time error 1004

[Ken Moore]

Hi All

I'm new to this and while using the following I have a Run time error '1004"' show up. Can you please help, the related file is attached.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim dccolumn As Integer
Dim dcvalue As String

dccolumn = ActiveCell.Column
dcvalue = ActiveCell.Value

If Application.Intersect(ActiveCell, [headers]) Is Nothing Then

If ActiveCell.Value <> "" Then

ActiveSheet.Range("a:f18974").AutoFilter Field:=dccolumn, Criterial:=dcvalue

End If

End If

End Sub

 

[NARAYANK991]

Hi ,

I think instead of Criteria1 , you have put in Criterial , where the last character is a lower case L.

Narayan

 

[Ken Moore]

Hi ,

I think instead of Criteria1 , you have put in Criterial , where the last character is a lower case L.

Narayan

You are a start, thank you for your excellent help