Option Explicit

Private Sub REmove_Net_Pricing_Info_Click()

' SelectButton Macro
' Macro recorded 2/20/2006 by JFS
' Delete TP Contract References to Pricing (Customer Copy),
' so it can be added to Trailer Contract

' Dim ws As Worksheet
' Application.ScreenUpdating = False
' For Each ws In ActiveWorkbook.Worksheets
' If ws.ProtectContents = True Then
' ws.Unprotect ("Fern")
' End If
'
' Next
' ActiveWorkbook.Unprotect (["Ferd"])
'
Sheets("Options").Range("OptionsPgPricing").ClearC ontents
Sheets("Pricing").Range("PricePgPricing").ClearCon tents

Sheets("Contract").Activate
Range("B1").Select

' For Each ws In ActiveWorkbook.Worksheets
' If ws.ProtectContents = False Then
' ws.Protect ("Fern")
' End If
'
' Next
' ActiveWorkbook.Protect (["Ferd"])
'
' Application.ScreenUpdating = True
'
End Sub

Private Sub Replace_Deleted_Click()

' SelectButton Macro
' Macro created 10/02/06 by JFS
' Replace Cells Deleted by "REmove_Net_Pricing_Info_Click Macro
'
' Dim ws As Worksheet
' Application.ScreenUpdating = False
' For Each ws In ActiveWorkbook.Worksheets
' If ws.ProtectContents = True Then
' ws.Unprotect ("Fern")
' End If

' Next
' ActiveWorkbook.Unprotect (["Ferd"])

' xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx xxxxxxxxx

' Replace Cells in Pricing Sheet

' Run Time Error 1004: Application Defined or Object Defined Error

Sheets("Pricing").Range("C127").Select
ActiveCell.FormulaR1C1 = "CUSTOMER SPECIAL CONTRACT PRICE"

Sheets("Pricing").Range("C128").Select
ActiveCell.FormulaR1C1 = "=Round(G128,0)"

' Replace Link on Options Sheet
' Sheets("Options").Range("H6").Select
' ActiveCell.FormulaR1C1 = "=Pricing!$C$128"

' Place curson on Contract, Cell B1
Sheets("Contract").Range("B1").Select

' For Each ws In ActiveWorkbook.Worksheets
' If ws.ProtectContents = False Then
' ws.Protect ("Fern")
' End If
'
' Next
' ActiveWorkbook.Protect (["Ferd"])
'
' Application.ScreenUpdating = True

End Sub