Page Reference Error

J

John

Hi there,

I'm having trouble with a shapesheet cell reference. I've got three pages
"Front" and "Page-3" are foreground pages and "VBackground" is a background
page. I'm trying to right the following formula into the PinX of the
"Square1" shape on the background page

Pages[Front]!vGuideRight!PinX (this produces an "Error in formula")

Pages[Page-3]!Sheet.1!PinX (this works fine for some reason)


I've run a quick check on the page and shape names and ID's (see below) but
I still can't seem to solve the problem.

Any clues anyone?

Thanks

John
(Visio 2003)

Sub CheckPages()

Dim pag As Page
Dim shp As Shape

For Each pag In ActiveDocument.Pages
Debug.Print pag.Name, pag.ID & " **********************"
For Each shp In pag.Shapes
Debug.Print shp.Name, shp.ID
Next shp
Next pag

End Sub


DEBUG OUTPUT
Front 0 **********************
vGuideHorzPic 12
vGuideHorzTitle 10
vGuideRight 3
Logo 1
MainTitleText 4
SubTitleText 5
MainTitleUnderline 6
BlueSideLine 7
PrepText 8
PrepLine 9
Square1 11
CountryText 2

Page-3 6 **********************
Square1 1

VBackground 4 **********************
vGuideHorzPic 1
vGuideHorzTitle 2
Logo 4
MainTitleText 5
SubTitleText 6
MainTitleUnderline 7
BlueSideLine 8
PrepText 9
PrepLine 10
Square1 11
CountryText 12
 
Top