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

here I have attached the drive link for the worksheet.

https://docs.google.com/spreadsheets/d/1jtXNTtA1mmR9ZlWx8VNU2ck2_-2oQl5H/edit?usp=sharing&ouid=111373955071462287585&rtpof=true&sd=true

3b) VBA Code to convert selected data into pdf from applicant data:

Sub PDFconversion()
Dim r As Range
Dim s As String

If Selection.Count = 1 Then
Set r = Application.InputBox("Select a range", "Get Range", Type:=8)
Else
Set r = Selection
End If

strfile = "Selection" & "_" _
& Format(Now(), "yyyymmdd_hhmmss") _
& ".pdf"
strfile = ThisWorkbook.Path & "\" & strfile

myfile = Application.GetSaveAsFilename _
(InitialFileName:=strfile, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Select Folder and File Name to Save as PDF")
If myfile <> "False" Then
r.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
myfile, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
Else
MsgBox "No File Selected. PDF will not be saved", vbOKOnly, "No File Selected"
End If
End Sub

3c)Check Spelling mistakes in the workbook using VBA Code

Public Sub check()
Sheet1.Cells.CheckSpelling
End Sub