Option Explicit Sub Test() Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument SelectAll pMxDoc.FocusMap.Layer(0) End Sub Sub SelectAll(pFSel As IFeatureSelection) pFSel.SelectFeatures Nothing, esriSelectionResultNew, False End Sub