Issue saving Excel Worksheet to .pdf

[kpost]

I am working on adjusting an Excel file and am trying to get the save to .pdf to work and the macro runs with no errors but the save to .pdf is not working. Below is the VBA script

Sub Printpdf()
    ' Printpdf Macro
    ' Saves each sheet as a pdf
    ' Keyboard Shortcut: Ctrl+w
    Set X = 6 for start of loop
    x = 6
    Do Until x = 250
        ' Check for blank row in data sheet and stop looping
        Sheets("data sheet").Select
        Cells(x, 1).Select
        If Cells(x, 1) = 0 Then
            x = 250
        Else
            Sheets("scorecard").Select
            ' Copy Supplier name from "data sheet" row "x" to "scorecard" sheet
            Sheets("data sheet").Select
            Cells(x, 1).Select
            Selection.Copy
            Sheets("scorecard").Select
            Range("E2").Select
            ActiveSheet.Paste
            ' Set variable s equal to supplier name in "scorecard" sheet
            s = Range("M5").Value
            ' Save the sheet as a pdf with the name "s"
            ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
            s, Quality:=xlQualityStandard, IncludeDocProperties _
            :=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
            saveLocation = "C:\Users\kpost\Downloads"
            ' Increment value of x for loop
            x = x + 1
        End If
    Loop
End Sub