Changing a macro prompt from a message box to a userform

David,

  I know this isn't exactly what you are asking for here but I thought I'd mention it anyway.  I'm not sure of the current version of your macro but I downloaded the one above and stepped through it and noticed that you have a call to the UserName function 4 times for each "UserName" you have (32X currently).  This really should be changed AND you don't currently have any setup incase the UserName is not in your list.  You set the UserName to "-" in the function, but you never use it in that setup either.  I would do as the snip below if it was mine:

(I changed the function name so it isn't the same as what you are looking for, much more clear as to when you are looking to call a function and when you are evaluating a value)

Dim strUserName     As String

Function getUserName()
    Dim myShell
    Dim content
    Dim value
  
    Set myShell = CreateObject("WScript.Shell")
  
    For Each value In myShell.Environment("PROCESS")
        content = Split(value, "=")
        If content(0) = "USERNAME" Then strUserName = content(1)
        'Debug.Print value
    Next
  
    Set myShell = Nothing
End Function

Then in your Sub main():

getUserName
'Debug.Print strUserName

Select Case UCase(strUserName)
    Case "BAI"
        Engineer = "B.INGALLS"
        Initials = "BAI"
    Case "SEA"
        Engineer = "S.ALLAN"
        Initials = "SEA"
    Case "DLD"
        Engineer = "D.DEWEY"
        Initials = "DLD"
    Case "JJG"
        Engineer = "J. GODZIK"
        Initials = "JJG"
    Case "GS"
        Engineer = "G.SMITH"
        Initials = "GS"
    Case "DEJ"
        Engineer = "D.JOHNSON"
        Initials = "DEJ"
    Case "JJH"
        Engineer = "J.HABEL"
        Initials = "JJH"
    Case "DAJ"
        Engineer = "D.ALLORE"
        Initials = "DAJ"
    Case Else
'        strUserName = "-" 'need something for this strUserName, and something if no case is matched
End Select

this way you are getting the value ONCE, and using the select case to run all possible options.  This will be much faster and easier to debug/update in the future.  Hope this helps.

I could get the macro to run properly as I think it is still under WIP.

Edit you Userform and add these codes to populate the two boxes. Add additional lines as required.:

Private Sub UserForm_Initialize()

 

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swCustPropMgr = swModel.GetActiveConfiguration.CustomPropertyManager

 

Dim val1 As String

Dim val2 As String

 

swCustPropMgr.Get3 "DESCRIPTION", False, val1, val2

txtDescription.Text = val1

 

Dim SWGrade As String

swCustPropMgr.Get3 "GRADE", False, val1, val2

txtGrade.value = val1

 

End Sub