error VBA next without for
 

Hi,

Have some code below which give me an Error: Next without for.
What Am I Doing Wrong??
Cheers,
Harold

Sub test2()

ScreenUpdating = False

Dim Dir As String
Dim Wbk As String
Dim Sht As String
Dim Num As String

For a = 5 To 8

Dir = Sheets("print").Range("B" & a).Value
Wbk = Sheets("print").Range("C" & a).Value
Sht = Sheets("print").Range("D" & a).Value
Num = Sheets("print").Range("E" & a).Value


If a 7 Then
ChDir (Dir)
Workbooks.Open Filename:=Wbk, _
UpdateLinks:=3

With Sheets(Sht).PageSetup
.LeftFooter = "&8&Z&F - &A"
.RightFooter = "&8&D - &T & " & Num
End With
Sheets(Sht).PrintOut

Next a

End Sub

error VBA next without for
 

On Tue, 11 Dec 2007 16:02:43 -0800 (PST), mohavv wrote:

Hi,

Have some code below which give me an Error: Next without for.
What Am I Doing Wrong??
Cheers,
Harold

Sub test2()

ScreenUpdating = False

Dim Dir As String
Dim Wbk As String
Dim Sht As String
Dim Num As String

For a = 5 To 8

Dir = Sheets("print").Range("B" & a).Value
Wbk = Sheets("print").Range("C" & a).Value
Sht = Sheets("print").Range("D" & a).Value
Num = Sheets("print").Range("E" & a).Value


If a 7 Then
ChDir (Dir)
Workbooks.Open Filename:=Wbk, _
UpdateLinks:=3

With Sheets(Sht).PageSetup
.LeftFooter = "&8&Z&F - &A"
.RightFooter = "&8&D - &T & " & Num
End With
Sheets(Sht).PrintOut

Next a

End Sub

You are missing the end if to terminate the:

If a 7 then
...
...
With Sheets
...
...
End With
????? end if ?????
--ron