Excel VBA - Copy cell value

H

Helen Trim

This code works if your summary sheet is
called 'Summary'. It puts the data into row 2.

Sub InsertSummary()
Dim Sheet As Object

Worksheets("Summary").Range("A2").Select ' Edit start
cell here

'Step through all worksheets
For Each Sheet In Sheets
' Ignore the summary sheet
If Sheet.Name <> "Summary" Then ' Edit sheet name
here
' Take the value of I3 and put it on the Summary
sheet
ActiveCell.Value = Sheet.Range("I3").Value
' Move the cell on by 1
ActiveCell.Offset(0, 1).Select
End If
Next Sheet

End Sub

HTH
Helen
 
Top