Hi All...........

I have this macro repeated 36 times in my workbook, varying the names,
etc..........they work fine, except they take a LONG time to execute, with
the Status Bar indicating "Calculating Cells", and incrementing every
5%.........can anyone please show me how to speed this up?.....the two
Ranges are D8:BC30 and D33:BC46.

Sub UpdateSkeletonCrewX()

Worksheets("SkeletonCrewX").Select
ActiveSheet.Unprotect
Range("FieldSkeletonCrewX1").ClearContents
Range("FieldSkeletonCrewX2").ClearContents

Worksheets("SkeletonCrewX").Range("FieldSkeletonCr ewX1").Formula =
"=IF(ISNA(VLOOKUP(($C8&""_""&D$1&""_""&D$4),Master Namefile!$B:$S,14,FALSE)),
"""",VLOOKUP(($C8&""_""&D$1&""_""&D$4),MasterNamef ile!$B:$S,14,FALSE))"
Worksheets("SkeletonCrewX").Range("FieldSkeletonCr ewX2").Formula =
"=IF(ISNA(VLOOKUP(($C30&""_""&D$1&""_""&D$4),Maste rNamefile!$B:$S,14,FALSE))
,"""",VLOOKUP(($C30&""_""&D$1&""_""&D$4),MasterNam efile!$B:$S,14,FALSE))"

Worksheets("SkeletonCrewX").Range("c3").Formula = "=now()"
Range("C3").Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Protect DrawingObjects:=True, Contents:=True,
Scenarios:=True
Range("a5").Select
End Sub

TIA
Vaya con Dios,
Chuck, CABGx3