Copy HTM Files from Closed Workbook and Copy to Active Workbook if Sheet Name=File Name

I am looking to replace. My macro is lacking the connection from when it copies I need a way to take the objfile.name and if equal to tab/sheet name to paste into that tab. Any ideas? I tried to run this, but blacked out my excel.

[Sub MyMacro(strDesiredWkb As String)
For Each objFile In objFolder.Files
If objFile.Name = Sheets(sheetname) Then
ActiveSheet.Copy ThisWorkbook.Sheets(Sheets.Count)

    MsgBox strDesiredWkb

End Sub]