open acad drawings within excel VBA

[Tommy]

The following code works to check if autocad is already running

Dim AcadApp as AcadApplication
If AcadApp Is Nothing Then
   Set AcadApp = CreateObject("AutoCAD.Application")
   Else
   Set AcadApp = GetObject(, "AutoCAD.Application")
End If

great thanks to Tommy

garylee,

All the code you have posted does is check to see if the variable has been inialized. But just to test open acad and step through it, what you will see is the code will execute for "Set AcadApp = CreateObject("AutoCAD.Application")" will execute no matter if acad is already open or not.