Hi Russ,

Try the following:

Sub DisplaySheetCodeWindow()
Dim ShtComp As VBComponent

Set ShtComp = ThisWorkbook.VBProject.VBComponents("Sheet1")

ShtComp.CodeModule.CodePane.Show
End Sub

Hope this helps
--
A. Ch. Eirinberg


"rslc" ,nz" wrote:

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