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

https://drive.google.com/drive/folders/1H_kmMWfFCnlD7r4e-6ZgcNmh98cIGC8R?usp=share_link

1. Public Sub Highlightspellingmistake()

Dim rng As Range

For Each rng In ActiveSheet.UsedRange

If Not Application.CheckSpelling(rng.text) Then

rng.Interior.ColorIndex=6

End If

Next rng

End Sub

2. Public Sub PrintSelectionAsPdf()

Const filePath = "G:\Mano\skyll lync.pdf"

Dim PDFname As String

'PDFname = InputBox("Give a name", "Print Sel As PDF", "default")

Selection.PrintOut _

ActivePrinter:="Microsoft Print to PDF on Ne01:", _

PrintToFile:=True, _

PrToFileName:=Replace(filepath,"skyll lync",PDF name)

'

End Sub