Hi
I'm using the following code in a workbook. I'm investigating data by
charting the data in the sheet "kurve".
Sub Auto_Open()
'

Sheets("Liste").Select
Range("AC2").Select

Sheets("Justliste").Activate
Range("AC2").Select

Sheets("JustRatioListe").Activate
Range("AC2").Select

Sheets("GNværdier").Activate
Range("AC2").Select

Sheets("Liste").Select
End Sub

Sub MellemdatacheckComplet()
'
'Kopierer pladeværdierne i liste (ukompenseret)til kurvearket
Sheets("Liste").Activate
ActiveCell.Offset(0, 0).Range("A1:GS1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("Kurve").Select
Range("B3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True


'Kopierer pladeværdierne kompenseret for HDW fra JustListe

Sheets("JustListe").Activate
ActiveCell.Offset(0, 0).Range("A1:GS1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("Kurve").Select
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True




'Gennemsnitsværdierne af plademålingerne Ukompenseret
Sheets("GNværdier").Activate
ActiveCell.Offset(0, 0).Range("A1:CV1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("Kurve").Select
Range("D3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True


'Kopierer kompenseret for ratio og pen
Sheets("JustRatioListe").Activate
ActiveCell.Offset(0, 0).Range("A1:GS1").Select
Selection.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
Sheets("Kurve").Select
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks:= _
False, Transpose:=True



Sheets("Kurve").Select




End Sub

I use the macro "MellemdatacheckComplete" to investigate the data row by row
from the top in the 4 sheets "Liste", JustListe", "GNværdier"and
JustRatioListe".As you see in the autoopen the macro "mellemdatachec" starts
in the same column and row in the 4 sheets.

What I want is if I could type a rownumber in a listbox or something, so I
had the same cell (cell address) selected in the 4 sheets and so afterwards
run the macro "mellemdatacheckComplete?
Could sombody help me with the code?
Regards