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

project2.1code:

sub saveselectionaspdf()

'create and assign variables

dim saveselection as string

savelocation = "c:\users\marks\onedrive\documents\mypdffile.pdf"

'save selection as pdf

selection.exportasfixedform at type : = xltypepdf,_filename : =savelocation

end sub

check spelling mistake:

sub highlight_misspelled_words()

dim cell as range

for each cell in activesheet.usedrange

if not application.checkspelling(word:=cell.text) then cell.interior.colorindex = 8

next

end sub