You only have to change the constants
HTH
--
AP

'-------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Const addrWeek As String = "$E$4"
Const addrMonth As String = "$E$5"
Const addrYear As String = "$E$6"
Dim WMY As Range
Set WMY = Range( _
addrWeek & "," & _
addrMonth & "," & _
addrYear)
If Intersect(Target, WMY) Is Nothing _
Or Target.Count < 1 _
Then Exit Sub
Application.EnableEvents = False
With Target
If .Value = "" Then
WMY.Value = ""
Else
Select Case Target.Address
Case addrWeek 'Weekly
Range(addrMonth).Value = .Value * 52 / 12
Range(addrYear).Value = .Value * 52
Case addrMonth 'Monthly
Range(addrWeek).Value = .Value * 12 / 52
Range(addrYear).Value = .Value * 12
Case addrYear 'Yearly
Range(addrWeek).Value = .Value / 12
Range(addrMonth).Value = .Value / 52
End Select
End If
End With
Application.EnableEvents = True
End Sub
'---------------------------------------