How do I print individual excel worksheets into one note

See more:

Excel-2016

I am not very computer savvy but wanted to know if there is a way that I could print different worksheets in Excel (each client has their own worksheet) to an specific individual location in One-Note (each client has a receipt section in their own file) automatically.

I am currently using this VB code

Sub SelectPrinter()

Application.ScreenUpdating = False
'Create variables
Dim ws As Worksheet


'Loop through all worksheets and save as individual PDF in same folder
'as the Excel file
Application.Dialogs(xlDialogPrint).Show
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Support Provision" Then
If ws.Visible = True Then
ws.PrintOut
End If
End If
Next
Application.ScreenUpdating = True
End Sub

Just not sure how to modify it to Open One Note and then if there is a way to open specific files in One Note.

What I have tried:

Sub SelectPrinter()

Application.ScreenUpdating = False
'Create variables
Dim ws As Worksheet


'Loop through all worksheets and save as individual PDF in same folder
'as the Excel file
Application.Dialogs(xlDialogPrint).Show
For Each ws In ActiveWorkbook.Worksheets
If ws.Name <> "Support Provision" Then
If ws.Visible = True Then
ws.PrintOut
End If
End If
Next
Application.ScreenUpdating = True
End Sub