マクロの作り方をお教えください。

マクロの勉強中です。
　下記の様なマクロを作りましたが上手く動作しません
　フォルダーは開くのですが先に進みません
　どの様に直せば良いのかお教えください。
　よろしくお願いいたします。

Sub OpenFolders()
　　Dim targ
　　targ = "G:\Gomi"
　　　　Shell "C:\Windows\Explorer.exe " & targ, vbNormalFocus
　　With targ
　　　　.Top = 0
　　　　.Left = 482
　　　　.WindowState = xlNormal '標準
　　　　.Width = 962
　　　　.Height = 778
　　 End With
End Sub

No.2 ベストアンサー 回答者： bonaron 回答日時： 2017/05/13 08:19

失礼しました。

こちらではいかがでしょう。
https://okwave.jp/qa/q8253596.html

この回答へのお礼

早速の回答ありがとうございます。
たびたびのご回答重ねて感謝です。
希望していた通りのことが出来感謝w です。
ありがとうございました。

お礼日時：2017/05/13 09:11

No.1 回答者： bonaron 回答日時： 2017/05/12 18:21

こちらなど、参考になると思われます。

VBAでIEウィンドウの位置や大きさを設定する
http://www.vba-ie.net/ie/position-size.html

この回答へのお礼

早速の回答ありがとうございます。
質問の仕方が悪くてすみません
私が希望したのはＩＥインターネットの方ではなく
エクスプローラでフォルダーを開いたときに
ウィンドウの位置や大きさを設定したいのです
宜しくお願い致します。

お礼日時：2017/05/13 01:07