Insert the pound sign if a cursor is active
Hi,
I am struggling to create a PowerPoint macro which inserts a pound sign:
- If a cursor position is active – the pound sign appears
- If it’s not a case, an error message appears reading: “Put your cursor somewhere”.
When I run the macro, error message appears regardless of cursor being active or not. Do you have any idea how to fix it?
Code:
Sub Insert_pound()
On Error GoTo ErrorHandler
With ActiveWindow.Selection.TextRange
.InsertAfter ("£")
End With
ErrorHandler:
MsgBox "Put your cursor somewhere"
End Sub