Ændring af makro
Jeg har nedenstående makro i regneark1, der åbner regnearket regneark2 og kopier arket Satser over i regneark1.Nu vil jeg gerne have makroen ændret, så den køres i regneark2 og kopier arket Satser over i regneark1. Hvad skal ændres?
Sub KopiAfSkattesatser()
'-------------Her skal sti og navn på stamdata indsættes----------------
stStiOgFil = "E:\Satser.xls"
x = test_server(stStiOgFil)
If x = True Then
Application.ScreenUpdating = False
'-------------Her skal sti og navn på Skattesatser indsættes----------------
Workbooks.Open Filename:="E:\Regneark2.xls"
'-------------Her skal navn på Ark både til og fra indsættes----------------
Sheets("Satser").Cells.Copy ThisWorkbook.Sheets("Satser").Range("A1")
("Test").Range("A!")
ActiveWorkbook.Close False
Application.ScreenUpdating = True
End If
End Sub