类rang的select方法无效??????

wudixiaozi

各位大虾，我写的下面一段代码，在cad中运行，会出现类rang的select方法无效,请各位大虾执教！！！谢谢!!!

Set rg = newexcel.Sheets(1).Range(newexcel.Sheets(1).Cells(10, 18), newexcel.Sheets(1).Cells(10, 21))
    rg.Select
        With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
        End With
    rg.Merge
    rg.HorizontalAlignment = xlCenter
    rg.VerticalAlignment = xlCenter
    rg.WrapText = True
End If