Compile Error: End If without block If?

  • Thread starter Thread starter Jen
  • Start date Start date
J

Jen

Why do I keep getting this error End If without block If from the code
below?

Private Sub ReportFooter_Format(Cancel As Integer, FormatCount As Integer)
Me.NumCopiesPrinted = Me.NumCopiesPrinted + 1

If FormatCount = 1 Then
Select Case NumCopies
Case 1
Me.WhichCopy.Visible = False
Case 2
Me.WhichCopy.Caption = "Own Copy"
Me.WhichCopy.Visible = True
Case 3
Me.WhichCopy.Caption = "Accounting Copy"
Me.WhichCopy.Visible = True
Case 4
Me.WhichCopy.Caption = "Supervisor Copy"
Me.WhichCopy.Visible = True

End If
End Sub
 
Hi Jen,

you have missed out the End Select statement that needs to
go before the End If statement.

hth

chas
 
Back
Top