Effective use of Sheets("Result table").cells() statement

[JensKKK]

Is there a more effective way of writing the code below. How can I replace Sheets("Result table"). for example?

Any ideas welcome.

Thanks

Sheets("Result table").Cells(Top - 10, 2) = "Experiment title: "
Sheets("Result table").Cells(Top - 10, 8) = "Date: "
Sheets("Result table").Cells(Top - 9, 2) = "Experimenter: "
Sheets("Result table").Cells(Top - 8, 2) = "Analysis software: "
Sheets("Result table").Cells(Top - 6, 2) = "Number of Arrays: "
Sheets("Result table").Cells(Top - 6, 5) = "Reference Arrays: "
Sheets("Result table").Cells(Top - 6, 8) = "Test Arrays: "
Sheets("Result table").Cells(Top - 5, 2) = "Min % Frequency: "
Sheets("Result table").Cells(Top - 5, 5) = "Cut off for Results: "
Sheets("Result table").Cells(Top - 5, 8) = "Hits: "
Sheets("Result table").Cells(Top - 4, 2) = "Normalization method: "
Sheets("Result table").Cells(Top - 4, 5) = "Analysis method: "
Sheets("Result table").Cells(Top - 3, 2) = "CV for all arrrays: "
Sheets("Result table").Cells(Top - 3, 5) = "CV for IgG controls: "

Sheets("Result table").Cells(Top - 10, 4) = Experiment_Title
Sheets("Result table").Cells(Top - 9, 4) = Experimenter
Sheets("Result table").Cells(Top - 10, 9).value = Date
Sheets("Result table").Cells(Top - 8, 4) = Software_Version
Sheets("Result table").Cells(Top - 6, 4) = Number_of_Arrays
Sheets("Result table").Cells(Top - 6, 7) = Number_of_Reference_Sera
Sheets("Result table").Cells(Top - 6, 9) = Number_of_Test_Sera
Sheets("Result table").Temp = Cells(10, 10)
Sheets("Result table").Cells(Top - 5, 4) = Min_Frequency
Sheets("Result table").Cells(Top - 5, 7) = Cut_off_Value
Sheets("Result table").Cells(Top - 4, 4) = Temp
Sheets("Result table").Cells(Top - 4, 7) = Analysis_Method

Sheets("Result table").Cells(Top - 10, 8).Select

 

[PHV]

something like this ?
With Sheets("Result table")
.Cells(Top - 10, 2) = "Experiment title: "
.Cells(Top - 10, 8) = "Date: "
...
End With

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886