Oskars förslag fungerar bra, men Håkans fråga var hur man skriver och läser från/till en cell, så det kan vara bra att reda ut det också. Har man till exempel många värden där antalet varierar kan det också vara smidigare att göra det i ranger istället.
Det gör man genom en väldigt snarlik kod:
Public Sub Test()
Dim str As String
Worksheets("Blad1").Range("A5") = "Test"
str = Worksheets("Blad1").Range("A5")
End Sub
Worksheets("Blad1"), kan istället bytas ut till Worksheets1 osv. (det man ser i VBA-editorn), och Range("A5") kan bytas ut till namngivna celler, etc.
För att värdet ska sparas måste man förstås spara själva arbetsboken också, vilket man gör med ThisWorkbook.Save.