Flytning af celle til andet regneark

Link en kontrolelement knap til følgende makro (I Regneark1)

Sub Opdater()
Application.ScreenUpdating = False
x = Sheets("Ark1").Range("A10")
Workbooks.Open Filename:="c:\Regneark2.xls"
Sheets("Ark1").Activate
Range("A10") = x
Workbooks("Regneark2.xls").Close savechanges:=True
Application.ScreenUpdating = True
End Sub

Jeg får denne fejl:

Compile error:

Expected end sub.

??

har du mulighed for at sende filen
pm@madsen.tdcadsl.dk

Hvad hedder dine projektmapper ?

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
x = Sheets("Ark1").Range("A10")
Workbooks.Open Filename:="c:\mappe2.xls"
For Each sh In Workbooks("mappe2.xls").Sheets
sh.Activate
If sh.Range("A10") = "" Then sh.Range("A10") = x: Exit For
Next
Workbooks("mappe2.xls").Close savechanges:=True
Application.ScreenUpdating = True
End Sub

ok