Works on a PC but does not work on a mac

[Linda]

The following code works on my PC but not the mac. Any suggestions for
how it works on a mac would be greatly appreciated:

Function ApplyToAll()
Dim s
Dim max As Integer
Dim j As Integer
max = ActivePresentation.Slides.Count

For j = 1 To max
ActivePresentation.Slides(j).Select - my error happens with this line -
Run-time error '-247188160 (-7ffb7dc0) Slide (unknown member): Invalid
request. This view does not support Selection

ApplySavedValues
SaveDataFromForm
PutDataIntoNotesPage
Next j
End Function