In its simplest form, the code would be as follows:

Sub AAA()
MsgBox "Value: " & ThisWorkbook.Worksheets("Sheet1").Range("A1").Text
End Sub


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting
www.cpearson.com
(email on the web site)

"RUSS" wrote in message
...
Can someone please tell me how to create a macro that, when run, displays
the value of a particular cell?