Find ProcessID vha processnavn

Hej, jeg vil hører om I kan hjælpe mig med at finde en måde at finde ProcessID for en applikation hvor jeg kun kender processnavnet. Det skal nævnes at programmet ikke er synligt, så Der er ingen caption på vinduet, og denne caption (hvis vinduet var åbent) vil i øvrigt ikke være den samme fra tid til anden..

Det drejer sig om excel.exe som kører i baggrunden da jeg sætter det som et object og trækker nogle data ud i et MSFlexGrid:


Dim i As Long
Dim n As Long
On Error Resume Next
Set objExcel = GetObject("Excel.Application")
If Err.Number Then
  Err.Clear
  Set objExcel = CreateObject("Excel.Application")
  If Err.Number Then
      MsgBox "Kan ikke åbne Excel."
  End If
End If

objExcel.Visible = False

CommonDialog1.Filter = "Excel regneark (*.xls)|*.xls"
    CommonDialog1.ShowOpen
        Dim fs
            Set fs = CreateObject("Scripting.FileSystemObject")
           
Set objWorkbook = objExcel.Workbooks.Open(CommonDialog1.FileName)
Set objWorksheet = objWorkbook.Sheets("Sheet1")

With MSFlexGrid1
.Cols = 3
.Rows = InputBox("Hvor mange rækker skal der vises?")
For i = 0 To .Rows - 1
    .Row = i
    For n = 0 To .Cols - 1
        .Col = n
        .Text = objWorksheet.Cells(i + 1, n + 1).Value
    Next
Next
End With


Håber I kan hjælpe :o)