Hi

Q1: What is the code supposed to do?
Q2: What DOES the code do?
Q3: Does the code create errors or just not do what you expect? If
errors, what are they? Is any line highlighted?

I doubt anyone will look at your code without some of this information
regards
Paul

On Apr 21, 10:33*am, Mia wrote:
Hello,

I´m trying to make a looping code when I´m makin a pdf-file.
I can´t get i ringt, do anyone know whats wrong with my code bellow?
I´l be so grateful!

BR
Mia

Sub Skrivabevis2009pdf()
'
' Skriv Makro
' Makrot inspelat 2009-04-21 av Mia

* * Dim Start As Integer
* * Dim Stopp As Integer
* * Dim SkrivUt As String
* * Sheets("Uppföljning").Select
* * Start = Range("C7").Value
* * Stopp = Range("C8").Value

* * For i = Start To Stopp
* * * * Sheets("Kunddata").Select
* * * * Range("D9").Value = i
* * * * SkrivUt = Range("G9").Value
* * * * If SkrivUt = "S" Then

* * * Dim Prewiev As String
* * * Dim FilenameStr As String

* * If Dir(Environ("commonprogramfiles") & "\Microsoft Shared\OFFICE" _
* * * * *& Format(Val(Application.Version), "00") & "\EXP_PDF.DLL") < "" Then

* * * * FilenameStr = "M:\mo\S\bevis\" & _
* * * * ActiveSheet.Range("B10").Value & " " & Format(Now, "yyyy-mm-dd") &
".pdf"

* * * * Prewiev = "False"

Sheets("Uppföljning").Select
Sheets("Årsförnyelse 2009").Select

* * * * ActiveSheet.ExportAsFixedFormat _
* * * * * * * * Type:=xlTypePDF, _
* * * * * * * * Filename:=FilenameStr, _
* * * * * * * * Quality:=xlQualityStandard, _
* * * * * * * * IncludeDocProperties:=True, _
* * * * * * * * IgnorePrintAreas:=False, _
* * * * * * * * OpenAfterPublish:=Prewiev

* *Sheets("Uppföljning").Select

* End If

* Next
* Sheets("Uppföljning").Select

End Sub