InputBox error

[brownees]

Why am I getting a "Command failed" error with the following macro? It doesn't like ReferenceItem:="PhotoNum"


Sub PhotoCrossReference()


'Inserts cross reference to photo number input by user

Dim PhotoNum As Integer
PhotoNum = InputBox("Insert photo number", "Photo cross-reference", "1")

'Output cross reference
Selection.InsertCrossReference ReferenceType:="Photo", ReferenceKind:= _
wdOnlyLabelAndNumber, ReferenceItem:="PhotoNum", InsertAsHyperlink:=False, _
IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "

End Sub