Project 2 - Create a report using PowerQuery, Macro VBA, List Functions and Data Validation functions for Data Reporting of Supply Chain Management companies

Public Sub Dataintopdf()
'Create and Assian Variables
Dim SaveLocation As String
Dim SheetArray As String
SaveLocation = "C:\Users\Chinna\OneDrive\Desktop"
SheetArray = Array("Copy Data up to 2022 cells", "Charts", "List Functions")
'Select Specific Sheets From WorkBook,The Save All As Pdf
Sheets(SheetArray).Select
'ActiveSheet.Export As Fixed Format Type: =xlTypePdf
'FileName:=SaveLocation
End Sub

Public Sub Spellingcheck()
For Each sh In Worksheets
Sheets(sh.Name).Cells.CheckSpelling
Next
End Sub

 MY UPLOAD LINK GIVEN BELOW

 https://docs.google.com/spreadsheets/d/1nd3RRJXAbDo81HTD2xGS0l-D6siRr_7s/edit?usp=sharing&ouid=115776955772992130389&rtpof=true&sd=true