VBA: This works but is there a cleaner way?

[Russk68]

Private Sub Worksheet_Change(ByVal Target As Range)

Range("e3:e522").Calculate
ThisWorkbook.Sheets("Multi Build").Calculate
Range("am3:am100").Calculate
ThisWorkbook.Sheets("Distro").Calculate

End Sub

I'm calculating 1 sheet when changes are made in a range and I am also calculating another sheet when changes are made in another range.