Information Box

[bernd]

Hello,

I've a worksheet with about ten sheets. On each sheet I want to create
a sheet specific information box, which pops up after clicking a
button. The information contains several lines of text.
I prefer to have the information that is shown in these boxes in a
single place (maybe another worksheet?)

Anyone ideas of how to do this?

Thanks,

Bernd

 

[Guest]

Place this code into a standard code module. Add command buttons from the
Forms Toolbar and assign them to this macro.

Public Sub SheetMessage()
Select Case ActiveSheet.Name
Case "Sheet2"
MsgBox Sheets("Sheet1").Range("A1").Value
Case "Sheet3"
MsgBox Sheets("Sheet1").Range("A2").Value
End Select
End Sub

I placed buttons on Sheet 2 and Sheet 3 and placed messages in Cells A1 and
A2 of sheet 1.