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

1. Public sub pdf()

Dim x As workbook

Dim y As worksheet

Dim rng As Range

Dim Path As String

Dim FName As String

set x=thisworkbook

set y=x.worksheets("Report output")

set rng=y.Range("D3:D19")

Path= "G:\EXCEL\"

FName="excel1" & ".pdf"

rng.ExportAsFixedFormat _

type:=xltypepdf,

Filename:=Path & FName, _

IgnorPrintAreas:= True

End Sub

2. Sub misspelled()

Dim cl As Range

For Each cl in Activesheet.UsedRange

Next cl

If Not Application.checkspelling(word:=cl.text) Then

cl.Interior.color = vbRed

End If

End Sub