VBA EXCEL - Χρήση μεταβλητής σε πολλά subs

[Zounds]

Καλησπέρα και καλές γιορτές,

θα ήθελα την βοηθειά σας για ακόμα μια φορά...

λοιπον θελώ να κανω το εξής ...
θέλω σε ένα module το Report και στο sub loadfile να ορίζω ένα αρχείο με την εντολή όπως φαίνεται παρακάτω

Sub loadfile ()
MsgBox ("Choose filename...")
file1 = Application.GetOpenFilename()
End sub

στην συνέχεια θέλω σε άλλο sub, το Write,να ανοίγω το αρχείο αυτό και να γραφω στο κελί Α1 την λέξη Α1

Sub write()

Workbooks.Open (file1)
Range(a1).Select
    Selection = "a1"
ActiveWorkbook.Save
workbooks.Close

End sub

θέμα είναι πως πρεπει να δηλώσω την μεταβλητή ώστε να ισχύει και στα δύο subs ?

ευχαριστώ,

[axxis]

Δηλώνεις το file1 έξω από τα subs:

Dim file1

Sub loadfile()
...
End Sub

Sub write()
...
End Sub

[Zounds]

Δηλώνεις το file1 έξω από τα subs:

Dim file1

Sub loadfile()
...
End Sub

Sub write()
...
End Sub

πως ακριβώς την δηλώνω ; αυτό δεν έχω καταλάβει...




μου χτυπάει error

[akis1009]

Αντί για dim βάλε public στην μεταβλητή
Public file1 as String

[axxis]

Το error που σου χτυπάει, λογικά είναι για την επόμενη εντολή, το Range(a1).Select.
Θα έπρεπε να είναι Range("A1").Select

[Zounds]

Ολόσωστες οι παρατηρήσεις σας ευχαριστώ πολλοί καλοί μου φίλοι