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

Sub SaveRangeAsPDF ()

Dim sheet as Worksheet

Set sheet = ActiveWorkbook.ActiveSheet

Dim rPDF as Range

' Set print range for the PDF - in the example below it's A1:C2, but you can also just do like Set rPDF = Range("A1:C2") instead and that works too - I just like .Cells, which works as (row#, column#)

Set rPDF = Range(sheet.cells(1,1),sheet.cells(2,3)) 

 ' Open the SaveAs File Dialog to choose name/save location

sLoc = Application.GetSaveAsFilename(FileFilter:="PDF Files (*.pdf), *.pdf") 

 ' Export range as PDF with the parameters (name/location) from the SaveAs

rPDF.ExportAsFixedFormat Type:=xlPDF, Filename:=sLoc 

End Sub 

Sub SpellCheckInSpecificCells()
Range("d3,d5").CheckSpelling
End Sub

https://docs.google.com/spreadsheets/d/14RzzeRluSol6GTijPGtr5aZsOVgxcILy/edit?usp=drive_link&ouid=118055211514120063134&rtpof=true&sd=true