A million thanks ,Mr.Ken,now my message looks great and beautiful.you have
done a great job.Don't worry about your last assumption,as my range F2:G6 is
based on a formula ,there will be no gaps in rows, and all new values are
added into next available rows only.Thanks once again for helping me.

"Ken Johnson" wrote:

Hi Tungana,
Try this.
I have also included a line that prevents the message box from being
displayed should all the cells in F2:G6 be empty. If you really still
want the msgbox even when there are no values to show then just delete
(or type an ' in front of ) the line that goes "If iRows = 0 Then Exit
Sub"
I've also assumed for each of the 5 rows that if there is a value in
column F then there is also a value in column G and conversely if no
value in column F then no value in column G.

Private Sub Workbook_Open()
Dim rngInfo As Variant
Dim stInfo As String
Dim I As Byte
Dim J As Byte
Dim iRows As Byte
rngInfo = Sheet2.Range("F2:G6")
'count rows with values
For I = 1 To 5
If rngInfo(I, 1) < "" Then Let iRows = iRows + 1
Next I
'if no values then don't show MsgBox
If iRows = 0 Then Exit Sub
For I = 1 To iRows
For J = 1 To 2
stInfo = stInfo & rngInfo(I, J) & IIf(J = 1, ", ", "")
Next J
If I < iRows Then Let stInfo = stInfo & Chr(10)
Next I
MsgBox Prompt:=stInfo, Title:="Values in Sheet2 F2:G6"
End Sub

Ken Johnson