Sharing Workbook caused error message

[Joe Parisi]

My company used a spreadsheet to track jobs that are
either Lost, Comleted or In Progress. A number of macros
are assigned to CommandButtons that allow the listing to
be sorted by Salesperson, Job#, Status, etc.

Everything's been working fine, but lately we've found
that a number of users need to be in the workbook
simultaneously. My thought was to Share the workbook,
which was done, but now, whenever I press any of the
CommandButtons, I get the following error message:

"Run-time error 1004
AdvancedFilter method of Range class failed"

I'm hoping that someone has an easy fix, without having to
delve too deeply into the code, but please let me know if
you need anything else.

Thanks,

Joe

 

[Tom Ogilvy]

Sharing imposes many limitations on what can be done in a workbook. It
appears sorting in allowed, but have you imposed any protection that might
interfer here?

 

[Joe Parisi]

Tom,

Thanks for the reply.

As far as I can tell, there are no protections in place.
I've included a sample of code that was linked to one of
the buttons that generates an error message. I hope this
will clarify things a little (the comments at the end of
each line are my own):

Sub PM()
'
'
'
Range("AN3:AO20").Select 'This is a list of possible
Salespeople (AN = Primary and AO = Secondary)
Selection.Copy
Range("D3").Select 'This changes to the selected
Salesperson (in this case, PM)
ActiveSheet.Paste
Application.CutCopyMode = False
On Error GoTo ErrorHandler
ActiveSheet.ShowAllData
ErrorHandler:
Range("A22:AU2000").AdvancedFilter
Action:=xlFilterInPlace, CriteriaRange:= _
Range("D2:E20"), Unique:=False
Range("A22").Select
ActiveWindow.LargeScroll Down:=-1
End Sub


I hope this helps. If you need anything else, please ask.

Joe