Layer Drop Down not updating thru VBA

when i turn a layer off/on using VBA the layer drop down does not update