VBA - "Skip Page If Only "Custom Named" object is on the layer

I have to macro to export each page as a jpg. There's two pages that have a "Fold" object similar to dotted cut line. Screenshot - https://imgur.com/0MgO0NN 

I would like to skip those pages if that is the only object on the page. Something like:

If ActiveSelectionRange (only contains the object "Fold") Then
  Skip page
Else
  (Export code)
End If

Parents
No Data
Reply Children
No Data