hetong文件下打印所有"专项经费使用范围"工作表

Sub Macro1()
  Dim fn As String, wb As Workbook, ws As Worksheet, i As Long
  fn = Dir("C:\Users\fuxingyu\Desktop\hetong\*.xlsx")
  Do While fn <> ""
    Set wb = Workbooks.Open("C:\Users\fuxingyu\Desktop\hetong\" & fn)
    For Each ws In wb.Worksheets
        If Right(Trim(ws.Range("A1")), 8) = "专项经费使用范围" Then
            ws.PrintOut copies:=1
        End If
    Next ws
    wb.Close
    fn = Dir
  Loop
  
  End Sub