Visual Basic - Error 9 "El suníndice está fuera del intervalo"

Es que me marca el error 9 que es "El subíndice está fuera del intervalo", ya cheque la ayuda pero nbo entiendo como resolverlo. Lo compile paso por paso y el error me lo marca en "For Each ...". Aquí les dejo el pequeño programa. De antemano gracias.
Dim c As Object
Sub Seleccion()
For Each c In Worksheets("Sheet1").Range("A1:A100")
If c.Value <= 8 Then
Font.Bold = True
Else
Font.Italic = True
End If
Next c
End Sub

He probado el codigo y hay dos cosas que he modificado para que me funcione, Bueno tres cosa.

La primera: te lo ha comentado Paolo el DIM debe estar dentro de la función, por lo demas funciona

La segunda: la hoja a la que haces referencia en mi libro no existe y me da error 9. He cambiado Sheet1 por Hoja1 y ya no hay error 9. En tu caso el nombre que tenga la hoja de datos.

La tercera: la propiedad Font debe estar asociada a un objeto por lo que si realizo la modificacion c.Font igual que en el IF c.Value <= 8 then y ya funciona.

Sub Seleccion()
End Sub

creo que el error consiste en dos cosas primero hay que introducir la declaracion de la variable adentro del sub, en lugar de esto:

Dim c As Object
Sub Seleccion()

que fuera asi:

Sub Seleccion()
Dim c As Object


luego falta declarar de que tipo va a ser el Object asi que como veo que es un objeto excel te aconsejo agregar lo siguiente antes del ciclo for each

Set c = CreateObject("Excel.Application")
For Each c In Worksheets("Sheet1").Range("A1:A100")

y segun veo veo creo que quieres manipular font.bold y el font.italic dentro de un rango, pues no se si como lo estas haciendo funcina pero por si acaso no te funcionara asi como lo estas haciendo prueba de esta forma:

c.ActiveSheet.Range(("A1:A100").Font.Bold = True
c.ActiveSheet.Range(("A1:A100").Font.Italic = True

espero te funcione esta solucion, saludos.....




------------------------------------------------------------------------------------------------------------------------------------
Recuerda: agradecer no cuesta nada, pero al menos, favor de informar si esto fue la solución, para que otros programadores tenga seguridad de la posible solucion, para aplicarlos
con mayor seguridad a sus proyectos.

donde coloque el asterisco me aparece el error y no me deja funcionar la macro que puedo hacer con el error 9