A recommended change and a troubleshooting tip
For Each oShp In oSld.Shapes
If oShp.HasTextFrame And oShp.TextFrame.HasText Then
If oShp.TextFrame.TextRange.ParagraphFormat.Bullet.Type = ppBulletUnnumbered Then
'Troubleshooting
MsgBox oShp.TextFrame.TextRange.Text 'Not good with PPT, Text may be wrong Property.
colNum = colNum + 1 '<----------- move here
'Commented out for Troubleshooting
'oShp.TextFrame.TextRange.Text.Copy 'Maybe
'wks.Cells(slideNum, colNum).Paste
'Also try
'wks.Cells(1, colNum) = SlideNum
'wks.Cells(2, colNum) = oShp.TextFrame.TextRange.Text
End If
End If
Next oShp