all good solved myself - incase anyone wants to know

Sub NAME_OF_MACRO()

If ActiveWindow.Selection.Type = ppSelectionNone Then
ActiveWindow.ViewType = ppViewSlide
ActiveWindow.ViewType = ppViewSlideSorter

If ActiveWindow.Selection.Type = ppSelectionSlides Then
CurrentSlideIndex = ActiveWindow.Selection.SlideRange.SlideIndex
ActivePresentation.Slides.InsertFromFile _
"C:\....ADD YOUR FILE LOCATION HERE", CurrentSlideIndex, 17, 17
ActiveWindow.ViewType = ppViewNormal
Else
CurrentSlideIndex = 0 ' no slides
End If
Else
CurrentSlideIndex = ActiveWindow.Selection.SlideRange.SlideIndex
End If
End Sub