VB wall type macro added