Try something like

ThisWorkbook.VBProject.VBComponents( _
ActiveSheet.CodeName).CodeModule.CodePane.Show

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)

On Mon, 25 May 2009 20:00:51 +1200, rslc ,nz"
wrote:

Hi
is it possible to display the worksheet code window with vba or a
macro.
thanks
rslc