Hi Deepak and Thanks
It work great!
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Dim swApp As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim swModel As SldWorks.ModelDoc2
Dim swDraw As SldWorks.DrawingDoc
Dim swView As SldWorks.View
Dim strFileName As String
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swDraw = swModel
Set swView = swDraw.GetFirstView
Set swView = swView.GetNextView
strFileName = swView.GetReferencedModelName
boolstatus = swDraw.GenerateViewPaletteViews(strFileName)
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''
Not sure by check GenerateViewPaletteViews method.