Excel 2010 multiple worksheets print to multiple pdf 's is there a macro for this?

Good Afternoon,

I have a Excel spreadsheet with 179 worksheets. I have the following macro which works great at making them into seperate files however is there a way to make them into seperate pdfs without going to print each of them independantly?

Apparently I cannot use adobe pro 9 with excel 2010 because the ribbon issue. Any help would be greatly appreciated. I am just starting to learn about macro's so please consider me a dummy!

Sub CreateNewWBS()
Dim wbThis As Workbook
Dim wbNew As Workbook
Dim ws As Worksheet
Dim strFilename As String

Set wbThis = ThisWorkbook
For Each ws In wbThis.Worksheets
strFilename = wbThis.Path & "/" & ws.Name
ws.Copy
Set wbNew = ActiveWorkbook
wbNew.SaveAs strFilename
wbNew.Close
Next ws
End Sub

Moderator Edit:

Hello fontana.

Please notice that [CODE] tags have been added to your post. The forum rules require them so please keep that in mind and add them yourself whenever showing code in any of your future posts. To see instructions for applying them, click on the Forum Rules button at the top of the page and read Rule #3.
Thanks.