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

"C:\Users\Arjun\OneDrive\Applicant Data(AutoRecovered).xlsx"

"C:\Users\Arjun\OneDrive\About Applicant Data.csv"

Not Able to attach the files.

Sub SaveActiveWorkbookAsPDF()

'Create and assign variables
Dim saveLocation As String
saveLocation = "C:\Users\marks\OneDrive\Documents\myPDFFile.pdf"

'Save active workbook as PDF
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=saveLocation

End Sub

Sub HighlightMisspellings()

Dim cell As Range
For Each cell In ActiveSheet.UsedRange

'Check the spelling and if it's wrong, then change the style to be Bad
If Not Application.CheckSpelling(word:=cell.Text) Then
cell.Style = "Bad"
End If

Next cell

End Sub