Help with code.

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

Your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title go to your first post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)