Help with code.

[wayneao]

I have this code to save a sheet as pdf to a certain folder.

Dim intResults As Integer
 Dim sPath As String
 sPath = Environ("USERPROFILE") & "\Documents\" & "\PublisherList\"
Sheet4.Range("N1:Y1").Select
ActiveSheet.ExportAsFixedFormat xlTypePDF, sPath & _
  InputBox("Please provide a name for the PDF file.") & ".PDF"
Sheet4.PrintPreview

I would like to alter the code so that it doesn't select any extra rows.


wayneo