VBA02

Option Compare Text
Option Explicit
Sub aaaa()

Dim ws As Worksheet

MsgBox ("aaa")
For Each ws In Worksheets
    ws.Activate
    ActiveWindow.Zoom = 100
Next
    

End Sub

Sub aaaa01()

Dim ws As Worksheet
Dim OpenFileName As String
    
    ChDrive "E"
    ChDir "E:\Documents\dev\trunk\vba"
    OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
    If OpenFileName = "False" Then
        MsgBox "キャンセルされました"
    End If


End Sub