Compile Error Expected Function or Variable

Hi,

I'm fairly new to VBA so please bare with me. I've basically created this macro which print screens and saves the file into pdf looking up which sheet and range in a tab that i created. I'm however getting this compile error with the "Sub test()" turning yellow:

Sub test()
'
' test Macro
'

'
     i = 4

Do
    Sheet35.Select
    sTab = Cells(i, 3).Value
    sPrintRange = Cells(i, 4).Value
    sName = Cells(i, 5).Value
    Sheets.Select = sTab
    Range("A2:R44").Select
    ActiveSheet.PageSetup.PrintArea = sPrintRange
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.PageSetup.PrintArea = sPrintRange
    Application.PrintCommunication = False
    With ActiveSheet.PageSetup
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
        .LeftFooter = ""
        .CenterFooter = ""
        .RightFooter = ""
        .LeftMargin = Application.InchesToPoints(0.708661417322835)
        .RightMargin = Application.InchesToPoints(0.708661417322835)
        .TopMargin = Application.InchesToPoints(0.78740157480315)
        .BottomMargin = Application.InchesToPoints(0.748031496062992)
        .HeaderMargin = Application.InchesToPoints(0.31496062992126)
        .FooterMargin = Application.InchesToPoints(0.31496062992126)
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
        .PrintQuality = 600
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlLandscape
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = False
        .FitToPagesWide = 1
        .FitToPagesTall = 1
        .PrintErrors = xlPrintErrorsDisplayed
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .ScaleWithDocHeaderFooter = True
        .AlignMarginsHeaderFooter = True
        .EvenPage.LeftHeader.Text = ""
        .EvenPage.CenterHeader.Text = ""
        .EvenPage.RightHeader.Text = ""
        .EvenPage.LeftFooter.Text = ""
        .EvenPage.CenterFooter.Text = ""
        .EvenPage.RightFooter.Text = ""
        .FirstPage.LeftHeader.Text = ""
        .FirstPage.CenterHeader.Text = ""
        .FirstPage.RightHeader.Text = ""
        .FirstPage.LeftFooter.Text = ""
        .FirstPage.CenterFooter.Text = ""
        .FirstPage.RightFooter.Text = ""
    End With
    Application.PrintCommunication = True
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "H:\1- Monthly Financials\2014\5- May\10- Management Information Pack\PDF repository\" & sName & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False
        Sheet35.Select
        i = i + 1
 Loop While i < 6
 
End Sub

Any ideas?

Used in that fashion, Sheet35 must be the CodeName of a sheet, which is what appears to the left of the sheet name in the Project Explorer window. In a new workbook with two sheets, you would see

Sheet1 (Sheet1)
Sheet2 (Sheet2)

Change the name of Sheet1 to Bob, and you'd see

Sheet1 (Bob)
Sheet2 (Sheet2)

After doing that, you could refer to the first sheet as either Sheet1, or Worksheets(1), or Worksheets("Bob")

Originally Posted by shiser

I've called the worksheet "test" and I'm getting the same error. I've adjusted it as:

Worksheets("test").Select

I've also tried:

Sheets("test).Select

which I believe is the same thing. I still get the same error annoyingly

The first line should never generate a compile error; it would generate a runtime (subscript) error if there is no worksheet named test in the active workbook.

The second line is missing a closing quote after test.

Do you mean:

Sheets(sTab).Select

That means sTab does not contain the tab name of one of your worksheets.