Macro code

T

Tom Ogilvy

Sub GolfScores()
Dim sAddr a sString, sVal as String
Dim vVal as Variant
Dim rng as Range
With Workbooks("Golfscores.xls").Worksheets("Scores")
sAddr = .Range("A2").Address
sVal = .Range("A2").Text
vVal = .Range("A2").Value
set rng = .Range("A2")
msgbox sAddr & " value is = " & sVal

..Cells(rng.row,"F").Value = vVal
End With
end Sub

Might give you some ideas
 
Top