Kan man have 2 åbne sheets samtidig?

Hej Eksperter.

Jeg trode det var så let, men det volder lidt kvaler:

Jeg skal have en sub til at løbe gennem en række data. Når den finder "sum" i række G skal den i samme linie kopiere a og e over til et andet ark:"Opgørelse"

Jeg trode man kunne gøre sådan, men det virker ikke...

Dim tekst As String
Dim sum As String

Sheets("Opgørelse").Select
    Columns("A:A").ColumnWidth = 44.29
    Columns("B:F").Select
    Selection.ColumnWidth = 8.43
Range("a1").Value = "Data fra ""Optællingslisten"""
ActiveCell.Offset(2, 0).Activate


Sheets("Optælling").Select
Sheets("Optælling").Range("a65536").End(xlUp).Select
slutadr = ActiveCell.Address
For Each c In ActiveSheet.Range("a1:" & slutadr).Cells
If Range("G" & c.Row).Value = sum Then
tekst = Range("a" & c.Row).Value
sum = Range("e" & c.Row).Value

Sheets("opgørelse").Select
ActiveCell.Value = tekst
ActiveCell.Offset(0, 1) = sum
ActiveCell.Offset(1, 0).Activate

Sheets("Optælling").Select

End If
Next c

Så hvordan kan man så gøre - skal det puttes ind i en arry, eller kan det gøres på en anden måde??