I tried the code for importing the text data This may be someone can help and add text rotation 90" and positioned in the middle left this my code;sorry i has edit my code and then im waiting for your help to rotated text Thanks For HelpCode:Sub Xxxx() Dim ACAD As AcadApplication Dim txObj As acadText Dim ws As Range Dim CrdNo(0 To 2) As Double Dim TxNo As String Dim hNo As Double Dim LastRow As Double Dim i As Integer Dim j As Integer Dim k As Integer Set ACAD = GetObject(, "AutoCAD.Application") Set ws = Worksheets("NUM").Cells LastRow = ws(Rows.Count, 20).End(xlUp).Row hNo = 0.3 For i = 2 To LastRow j = 20 CrdNo(0) = ws(i, j): CrdNo(1) = ws(i, j + 1): CrdNo(2) = "0" TxNo = ws(i, j) Next i Set txObj = ACAD.ActiveDocument.ModelSpace.AddText(TxNo, CrdNo, hNo) End Sub