I'm having trouble inserting a drawing as a block. Could someone tell me what's wrong with this code. Sub PHAlites2() ' Insert the block phalites2 Dim blockRefObj As AcadBlockReference Set blockRefObj.Name = "F:\Projects\7000.00 - Reference\CUST-LSP\phalites2" Blockname = blockRefObj blockRefObj = Block.InsertBlock.Name(0, 0, 0, "F:\Projects\7000.00 - Reference\CUST-LSP\phalites2", 1#, 1#, 1#, 0) ZoomAll End Sub