Sub resourceview()
Attribute resourceview.VB_Description = "Macro Macro1\nMacro Recorded 3/22/02 11:18 AM by Jack_Dahlgren."
'This macro will split the window and show a resource graph for
'all of the resource which are selected in the top pane
'Copyright Jack Dahlgren, March 2002

  ActiveWindow.BottomPane.Close
  WindowSplit
  ViewApply Name:="Resource Sheet"
  WindowActivate TopPane:=False
  ViewApply Name:="Resource Gr&aph"
  ResourceGraphBarStyles TopLeftShowAs:=0, TopLeftPattern:=1, BottomLeftShowAs:=0, BottomLeftPattern:=1, TopRightShowAs:=5, BottomRightShowAs:=5
End Sub