Hi

OK, managed to figure this one out. For anyone who has a similar type of
problem, see the code below;

Sub LinkDetail()
Dim wksSheet As Worksheet
Dim strSheet As String
strSheet = "*Server Details"
For Each wksSheet In ThisWorkbook.Worksheets
If wksSheet.Name Like strSheet Then
wksSheet.Range("Y7").Formula = "=$A$6"
wksSheet.Range("Y8").Formula = "=$B$6"
wksSheet.Range("Y9").Formula = "=$Q$6"
wksSheet.Range("Y10").Formula = "=$C$6"
wksSheet.Range("Y11").Formula = "=$D$6"
wksSheet.Range("Y13").Formula = "=$E$6"
wksSheet.Range("U16").Formula = "=CONCATENATE(""Shows CPU / IO /
idle time utilization (in ticks) since ASE was last started. ["",$J$6, ""
microseconds per tick]"")"
wksSheet.Range("W18").Formula = "=$G$6"
wksSheet.Range("AA18").Formula = "=$H$6"
wksSheet.Range("AE18").Formula = "=$I$6"
wksSheet.Range("U23").Formula = "=$K$6"
wksSheet.Range("Y23").Formula = "=$L$6"
wksSheet.Range("AC23").Formula = "=$M$6"
wksSheet.Range("U27").Formula = "=$N$6"
wksSheet.Range("Y27").Formula = "=$O$6"
wksSheet.Range("AC27").Formula = "=$P$6"
wksSheet.Range("AI9").Formula = "=$R$6"
wksSheet.Range("AJ9").Formula = "=$S$6"
End If
Next
End Sub

Many Thanks - Grant