全シートでA1を一括選択する Sub test()   ' Application.Gotoで全シートでA1を選択した状態にする    Dim WS···