Function GetFeatureLayerByName(LayerName As String) As ILayer Dim i As Integer Dim mylayer As ILayer Dim myLayer2 As ILayer Dim pMap As IMap Dim pMxDocument As IMxDocument Set pMxDocument = Application.Document Set pMap = pMxDocument.Focus…