Option Explicit
Sub TurnOffLayer()
Dim swApp As Object
Dim Part As Object
Dim swLayerMgr As Object
Dim swLayer As Object
Set swApp = CreateObject("SldWorks.Application")
Set Part = swApp.ActiveDoc
Set swLayerMgr = Part.GetLayerManager
Set swLayer = swLayerMgr.GetLayer("DIM")
swLayer.Visible = False
Set swLayer = Nothing
Set swLayerMgr = Nothing
Set Part = Nothing
Set swApp = Nothing
End Sub