Insert the pound sign if a cursor is active

[Rosenrot]

Hi,

I am struggling to create a PowerPoint macro which inserts a pound sign:

1. If a cursor position is active – the pound sign appears
2. 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?

Sub Insert_pound()


On Error GoTo ErrorHandler


With ActiveWindow.Selection.TextRange
     .InsertAfter ("£")
     End With


ErrorHandler:
MsgBox "Put your cursor somewhere"
 
End Sub