Åbne et regneark med VBA programmering

Lav en knap til denne kode

Public Sub AabenFil()
Dim filNavn As String
  filNavn = Application.GetOpenFilename("Excel filer(*.xls), .xls")
  If filNavn <> False Then
  Workbooks.Open Filename:=filNavn
  End If
End Sub

Hvis knappen hedder CommandBotten1, ser koden sådan ud

Private Sub CommandButton1_Click()
    Dim filNavn As String
    filNavn = Application.GetOpenFilename("Excel filer(*.xls), .xls")
    If filNavn <> False Then
        Workbooks.Open Filename:=filNavn
    End If
End Sub

Tak for hjælpen

et svar ;-))

Tak for svaret
Undskyld forsinkelsen (½år)