Private Sub UserForm_Activate()
Dim N As Long, Img As MSForms.Image
For N = 1 To 7
Set Img = Me("Image" & N)
If ThisWorkbook.Worksheets("Zone " & N).[A1000].End(xlUp).Row > 1 Then
Img.Picture = LoadPicture(ThisWorkbook.Path & "\on.jpg")
Img.Enabled = True
Else
Img.Picture = LoadPicture(ThisWorkbook.Path & "\off.jpg")
Img.Enabled = False
End If: Next N
End Sub