Coding Cmd Button in userform

Welcome to the Forum!

Private Sub CommandButton1_Click()
  Worksheets("Sheet2").Range("A1").Value = TextBox1.Value
  'etc. for others
  Shell "cmd /c winword " & """" & "X:\MSWord\test.doc" & """", vbNormalFocus
  Unload Me
End Sub

I did a quick trial and while I didn't get any errors nothing seemed to happen.

This is what I have.

Private Sub CommandButton1_Click()
  Worksheets("Sheet3").Range("B2").Value = lstName.Value
  'etc. for others
  Shell "cmd /c winword " & """" & "C:\test.txt" & """", vbNormalFocus
  Unload Me
End Sub

Private Sub CmdOrder_Click()

End Sub

What did I enter wrong?

Thanks for the help BTW!

OK, I reentered it as

Private Sub CmdOrder_Click()
Worksheets("Patient").Range("B2").Value = lstName.Value
  'etc. for others
  Shell "cmd /c winword " & """" & "C:\test.txt" & """", vbNormalFocus
  Unload Me
End Sub

It works! Thanks a million!

However, I notice the cmd window pops up, is there a way to kill it after it launches the document?

You can hide it.

Shell "cmd /c winword " & """" & "x:\MSWord\Test.doc" & """", vbHide

Originally Posted by Kenneth Hobson

You can hide it.

Shell "cmd /c winword " & """" & "x:\MSWord\Test.doc" & """", vbHide

BTW, thank you so much! It is working perfectly now!