Building a macro with a wildcard

So, tweaking it to add a Summary worksheet a the end of the workbook, and adding an apostrophe to enclose worksheet names with spaces:

Public Sub CreateSums()

    Dim wksSum          As Worksheet

    Dim strwksStart     As String
    Dim strwksEnd       As String

    strwksStart= Worksheets(2).Name
    strwksend = Worksheets(ThisWorkbook.Worksheets.Count).Name

    Set wksSum = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Worksheets(strwksend))
    wksSum.Name = "Summary"
    wksSum.Range("B4:B8").Value = Application.Transpose(Array("Labor", "Equipment", "Materials", "Total", "Hours"))
    wksSum.Range("C4").Formula = "=Sum('" & strwksStart & ":" & strwksend & "'!M48)"
    wksSum.Range("C5").Formula = "=Sum('" & strwksStart & ":" & strwksend & "'!M55)"
    wksSum.Range("C6").Formula = "=Sum('" & strwksStart & ":" & strwksend & "'!M62)"
    wksSum.Range("C7").Formula = "=Sum('" & strwksStart & ":" & strwksend & "'!M65)"
    wksSum.Range("C8").Formula = "=Sum('" & strwksStart & ":" & strwksend & "'!K74)"

    Set wksSum = Nothing

End Sub