Sub savedatatoregistry()
'Enter any value in to any cell before running this macro
SaveSetting "Registry_Saving02", "MyData", "Detail01", Selection
SaveSetting "Registry_Saving02", "MyData", "Detail02", Selection.Address
End Sub
Sub getdatatfromregistry()
Sheets("Sheet1").[a1] = GetSetting("Registry_Saving02", "MyData", "Detail01", 0)
Sheets("Sheet1").[a2] = GetSetting("Registry_Saving02", "MyData", "Detail02", 0)
End Sub
|