Hi Jamie,

That's worked brilliant! The only thing is when I go back to the
"contents page" it doesn't pop up again!

In the ThisWorkbook module, paste this additional procedu

'=============
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Dialog1" Then
DialogSheets("Dialog1").Show
End If
End Sub
'<<=============

Again, change "Dialog1" to the name that you use.


---
Regards,
Norman



"Jamie13" wrote in
message ...

Hey Norman cheers mate,
That's worked brilliant! The only thing is when I go back to the
"contents page" it doesn't pop up again!


--
Jamie13
------------------------------------------------------------------------
Jamie13's Profile:
http://www.excelforum.com/member.php...o&userid=33175
View this thread: http://www.excelforum.com/showthread...hreadid=529952