afrund i vba

Kan du ikke bare formattere den/de pågældende celler til at afrunde?

jeg har prøvet at lege med denne her, men det afrunder kun antallet af decimaler:
_________________________________________________________________________

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("F9:F38")) Is Nothing Then
        Application.EnableEvents = False
        For Each cell In Target
        cell.Value = Round(cell.Value, 1)
        Next
        Application.EnableEvents = True
    End If

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Target = Round(Target, 2)
End Sub

der skal afrundes til nærmeste 0,5

cell.Value = Round(cell.Value * 2, 0) / 2

Eller

Target = WorksheetFunction.Round(Target / 0.5, 0) * 0.5

bak-> kan du forklare en "nybørjare" litt nærmere?
Jeg skjønner hvor koden skal stå, men hvordan få man definert target.

Koden skal være i Arkets eget kodemodul.
Target er cellen man har ændret i.
Hvis Target er indenfor Range("F9:F38") skal der udføres en afrunding


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F9:F38")) Is Nothing Then
        Application.EnableEvents = False
        Target.Value = Round(cell.Value * 2, 0) / 2
        Application.EnableEvents = True
End Sub

bak-> Hva du kan, takker så mye :-)
Oppretter en 15 pointer.

bak jeg kan se du var først med svaret, så 15 points til dig...svar :-)

ok :-)

bak-> Hvis man ikke  benytter If Not Intersect(.....
men bare:  Target.Value = Round(cell.Value * 2, 0) / 2
Gjelder formateringen da for hele arket?