質問者が納得単純にコピーしてます。
で、エラー処理とかは考えてません。
でも、考え方としては参考になるかな。。
Sub 見積書呼出()
Dim OpenFile As String
Dim myBook As Workbook
Dim mySh As Worksheet
ChDir "E:見積書"
OpenFile = Application.GetOpenFilename("Excelブック,*.*")
Set myBook = Workbooks.Open(OpenFil...
質問者が納得手抜きの方法ですが――
まず、それぞれの表範囲に、"AA"、"BB"、"CC" といった名前をつけます。
("C"という名前は受け付けてくれませんので、2文字にしました)
↓
コントロールツールボックスで作成したコマンドボタンに、次のように
記述します。
Private Sub CommandButton1_Click()
Dim Area
Area = Range("A1").Value
If A...