åbne andre regneark

Private Sub CommandButton1_Click()
  Workbooks.Open Filename:="C:\Mappe3.xls"
End Sub

Jeg vil gerne have begge vinduer åbne samtidigt som to separate regneark

Private Sub CommandButton1_Click()
Dim RetVal
RetVal = Shell("Excel.exe C:\Mappe3.xls", 1)
End Sub

Alternativ

Private Sub CommandButton1_Click()
    Workbooks.Open Filename:="c:\mappe3.xls"
    Windows.Arrange ArrangeStyle:=xlVertical
End Sub

sanderjl - jeg kan se dine spørgsmål står åbne! Når en person har givet et svar og du ønsker at tildele vedkommende point, så markér vedkommendes navn nederst til venstre og klik Acceptér.

Er du tilfreds med en kommentar, så gør opmærksom på det og bed om at få lagt et svar så der kan afgives point :))