changing several cells (both cotent & format) base on value of 1 c

[punking315]

using vba.... what's the best way to change several cells based upon the
value of one cell. I know to a seasoned programmer the following attempt is
laughable but bear with me, here is the code I'm wrestling with:

Public Sub worksheet_calculate(ByVal Target As Range)
If Range("select_type").Text = "gable" Then
Range("gableroofing_value").Value = Val(Range("L83"))
Else
If Range("select_type").Text = "saltbox" Then
Range("gableroofing_value").Value = ""

End If
End If
End Sub

Private Sub worksheet_calculate()

If Range("select_type").Text = "gable" Then
Range("saltboxroofing_value").Value = ""

Else
If Range("select_type").Text = "saltbox" Then
Range("saltboxroofing_value").Value = (Val(Cells(85, 12)) + Val(Cells(86,
12)))
Else
End If
End If

End Sub


Private Sub Worksheet_Change(ByVal Target As Range)

If Range("select_type").Text = "gable" Then
Range("saltboxroofing").Font.Color = RGB(255, 255, 255)
Else
If Range("select_type").Text = "saltbox" Then
Range("saltboxroofing").Font.Color = RGB(0, 0, 0)
Else
End If
End If
End Sub