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

https://docs.google.com/spreadsheets/d/10EtRoCzq9PlP5KroLKyIgiZYKy6vUbc9/edit?usp=share_link&ouid=105987252301171697645&rtpof=true&sd=true

Dim cell As Range

For Each cell In ActiveSheet.UsedRange

If Not Application.CheckSpelling(word:=cell.Text)Then

cell.Style = "Bad"

End If

Next cell

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$DR$307512"), , xlYes). _
Name = "Table2"
Range("Table2[#All]").Select
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
ActiveSheet.ListObjects("Table2").TableStyle = "TableStyleMedium1"
ActiveWindow.FreezePanes = True
Application.WindowState = xlNormal
ActiveWindow.FreezePanes = False
With ActiveWindow
.SplitColumn = 0
.SplitRow = 1
End With
ActiveWindow.FreezePanes = True
End Sub

VBA is not working while compiling for excel to PDF, hence gave the logic here

Sub SaveActiveWorkbookAsPDF()

Dim saveLocation As String saveLocation = "C:\Users\marks\OneDrive\Documents\myPDFFile.pdf"

ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=saveLocation

End Sub