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").Select
       Range("C6").Select
           Selection.ClearContents
       Range("H6:I6").Select
           Selection.ClearContents

   Sheets("Pricing").Select
       Range("C120").Select
           Selection.ClearContents
       Range("C121").Select
           Selection.ClearContents

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

  for each ws in ActiveWorkbook.Worksheets
   If ws.ProtectContents = False Then
   ws.Protect ("Fern")
   End If
 Next
   Application.ScreenUpdating = True

End Sub

SORRY about the duplicate posting - please use other one - Thank you.