Fonksiyon gerekli gördüğünüz bir yerde çalıştırılmalı dim yerine public yada global kullanmak gerekebilir
Kod:
Dim euroKur As Double
Dim UsdKur As Double
Sub DovizCinsi()
UsdKur = ThisWorkbook.Sheets("Ayarlar").Range("A2").Value
euroKur = ThisWorkbook.Sheets("Ayarlar").Range("B2").Value
End Sub