Изменение текстовой информации углового штампа через диалоговое окно VB.

Option Explicit
' requires : Microsoft Excell XX.0 Object Library
' Set checkbox in Tools->Options->General->Break on Unhandled Errors
Private Sub CommandButton1_Click()
MsgBox "Revison Number:" & vbTab & ComboBox1.Text & vbCr & _
        "Drawn By:" & vbTab & ComboBox2.Text
Unload Me
End Sub
Private Sub UserForm_Initialize()
Dim ExcelAppl As Excel.Application
Dim objWrkBook As Excel.Workbook
Dim objSheet As Excel.Worksheet
Dim objRange As Excel.Range
Dim lngRows As Long
Dim lngCols As Long
Dim indx As Long
Dim jndx As Long
On Error Resume Next
     Err.Clear ' clear any errors
       Set ExcelAppl = GetObject(, "Excel.application")      ' See if Excel is running
          If Err <> 0 Then   '                              ' If Excel not running start a new session
               Err.Clear
              Set ExcelAppl = CreateObject("Excel.application") ' Start Excel if excel is not running
                   If Err <> 0 Then
                        MsgBox " Could not start Excel ! , Is Excel Installed ? ", vbCritical, " Excel Error ! "
                      Err.Clear
                  End If
          End If
 Err.Clear
ExcelAppl.Visible = True   ' Make excel application visible (optional)
ExcelAppl.WindowState = xlMinimized  ' Minimize application window so we don't see it
' Make Autocad window maximum
AcadApplication.WindowState = acMax
' open book
' change full path for your data file
Set objWrkBook = ExcelAppl.Workbooks.Open(FileName:="C:\MyVBA\TitleBlockInfo.xls")
' get the first spreadsheet in the workbook
Set objSheet = objWrkBook.Worksheets(1) '
objSheet.Activate ' make sheet #1 the active sheet
Set objRange = objSheet.Range("A1:J100") ' change address of the desired range here
lngRows = objRange.Rows.Count
lngCols = objRange.Columns.Count
' you can use UsedRange object also:
'lngRows = objWrkBook.ActiveSheet.UsedRange.Rows.Count
'lngCols = objWrkBook.ActiveSheet.UsedRange.Columns.Count
ReDim dataarr(lngRows - 1, lngCols - 1)
For indx = 1 To lngRows
For jndx = 0 To lngCols
      dataarr(indx - 1, jndx - 1) = objSheet.Cells(indx, jndx)
Next
Next
ReDim RevNo(0 To UBound(dataarr, 1)) As String
ReDim DrawnBy(0 To UBound(dataarr, 1)) As String
For indx = 0 To UBound(dataarr, 1)
RevNo(indx) = dataarr(indx, 0): DrawnBy(indx) = dataarr(indx, 1)
'' etc, etc ...
Next
' close Excel
objWrkBook.Close Savechanges:=False ' close book w/o saving changes
ExcelAppl.WindowState = xlNormal
' quit Excel application
ExcelAppl.Quit
' clean up in the reversed hyerarchical order
Set objRange = Nothing
Set objSheet = Nothing
Set objWrkBook = Nothing
Set ExcelAppl = Nothing
'
ComboBox1.List() = RevNo: ComboBox2.List() = DrawnBy 'etc,etc....
ComboBox1.ListIndex = 0: ComboBox2.ListIndex = 0 'etc,etc....
End Sub