ragazzi ho fatto una macro che controlla il valore di una cella, se superiore a 1000 la colora di rosso altrimenti no.

Tutto ha funzionato fino a quando trattavo un foglio solo, poi ho deciso di fare diventare il mio codice una funzione per richiamarlo per tutti e 4 i fogli:

-------------------

Public Function mediapag(ByVal a As Worksheet)

For i = 1 To a.Columns.Count

If InStr(a.Cells(2, i), "Avarage") > 0 Then

j = 3
Do Until a.Cells(j, 3) = ""

If a.Cells(j, i) <> "" And a.Cells(j, i).Value > 1000 Then

a.Cells(j, i).Interior.ColorIndex = 3

Else

a.Cells(j, i).Interior.ColorIndex = xlNone


End If
j = j + 1

Loop

End If

Next i

End Function

-------------------------


Questo è il richiamo della funzione "mediapag (Worksheets("casa"))"

Non capisco perchè non funziona...eppure prima di farlo diventare una funzione funzionava, penso di sbagliare il passaggio dei dati o il richiamo della funzione.

L'errore come da titolo è "Proprietà o metodo non supportati dall'oggetto" e me lo da sul richiamo della funzione.

Sia che scriva Worksheets("casa") sia che metta foglio1