Message box help

[DavidM]

Hi

In sheet1 A2 to A500 are numbered, I'm working in sheet2 and run a macro,
when the macro finishes I'd like a message box to popup telling me what the
number is in the cell in sheet1, which moves down 1 cell every time the
macro is run.

Thanks in advance

DaveM

 

[merjet]

Sub macro1()
Static iRow
'do other stuff
If iRow = 0 Then iRow = 1
iRow = iRow + 1
MsgBox Sheets("Sheet1").Range("A" & iRow)
End Sub

Hth,
Merjet