Sharing xls file with macro (xlsm)

[fcarboni]

Hi,
I've one file whit some macros and code VBA to intercept event

If Application.Intersect(Target, Range("G1:H2")) Is Nothing Then

I need that two user use this file into same time, I try to sharing this file, cmd with macro running, but te code into myWorkbook don't play.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Application.Intersect(Target, Range("G1:H2")) Is Nothing Then
        Exit Sub
    Else
        Application.ScreenUpdating = False
            Range("E4").Value = "Lib"
            Range("A5:M304").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("A3:F4"), Unique:=False
        Application.ScreenUpdating = True
            Range("E4").ClearContents
    End If
End Sub

If I go on Range I receive this error:
Errore di run-time '1004'
Errore nel metodo AdvancedFilter per la classe Range.
the cmd on msgbox error Continue and Debug are disable, End and ? are enable
Why??
some ideas?
Tnk
Fabrizio