>>451
Set wb = Application.GetOpenFilename

は、String型をWorkbook型のポインタへ代入しようとしてエラー吐いてる。

Set wb = Workbooks.Open(Application.GetOpenFilename)
Set wb = Workbooks.Open("目的のワークブック.xlsx")

は、OpenメソッドにString型変数を渡しているから機能する。