Made some changes to the code so I could put the file name between an extra pair of single quotes ' ' to deal with spaces and "-" in file names:

Private Sub CommandButton1_Click()
    Workbooks.Open ("\\Nw_edc_02\apps1\Starquery\Werkfolder\WR\xls\aantal picks.xls")
    Application.Run ("'aantal picks.xls'!Updbtn_Update")
End Sub

Found here: http://stackoverflow.com/questions/2...ontains-spaces