Sharing xls file with macro (xlsm)

F

fcarboni

Joined
May 11, 2012
Messages
3
Reaction score
0
Hi,
I've one file whit some macros and code VBA to intercept event
Code: 
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.
Code: 
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
 
Last edited:
Back
Top