View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.misc
mohavv mohavv is offline
external usenet poster
 
Posts: 68
Default 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