Macro not working in shared work book

Hello everyone,

my macro works fine, but when i share my work book it is throwing some error,
Run-time error '1004':
AdvancedFilter method of Range class failedRead more

it will be great if some one could help me out
Macro code is

Sub Extract2()
'
' Extract2 Macro
' Refresh
'
' Keyboard Shortcut: Ctrl+Shift+R
'
    Rows("61:116").Select
    Selection.Delete Shift:=xlUp
    Range("A61").Select
    Sheets("Data").Range("A1:Q600").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheets("Data").Range("S1:S2"), CopyToRange:=Range("A61"), _
        Unique:=False
End Sub

Thanks in advance for ur ans...