Application VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Application
  4. Find the code pane
Public Sub FindCodePane()
  Dim codePane As VBIDE.codePane
  Set codePane = Application.VBE.ActiveCodePane
  MsgBox codePane.TopLine
End Sub