Dim ws As Worksheet
For Each ws In Worksheets
If ws.Name = "Tested Party" Then GoTo GetNext
Range("G8").Select
ActiveCell.FormulaR1C1 = "2014"
GetNext: Next: End Sub