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
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
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks