Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = Me.Range("ScaleFactor").Address Then
ScaleData End If End Sub Private Sub ScaleData() If Me.Range("ScaleFactor").Value = "Normal" Then
Me.Range("ScaleRange").NumberFormat = "#,##0"
Else
Me.Range("ScaleRange").NumberFormat = "#," End If End Sub