Filtro con macros

Estimado, tengo el siguiente problema necesito filtrar por un campo en este caso el rut y al momento de ejecutar la macro se cae.

micelda = Sheets("formulario").Range("o7"). ' CURSO PARA ACTIVAR LA HOJA
curso = Range("L2").Value ' RUT
Sheets(curso).Select 'TABLAO BASE DE DATOS
Range("A1").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$AU$36").AutoFilter Field:=4, Criteria1:=Sheets(curso).Range(micelda) _
, Operator:=xlAnd

Ojala me puedas orientar