The real question is ... what do you REALLY want to do if the activ
cell on Sheet3 is not blank? All you really want is a message box?
OK, here it is. But, better if you go to Sheet3 and select a cel
instead of just letting the macro find its own active cell.

Sub Macro6()
Application.Goto Reference:="scores"
Selection.Copy
Sheets("Sheet3").Select
If activecell = "" then
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:
_
False, Transpose:=False
ActiveCell.Select
Application.CutCopyMode = False
ActiveCell.Offset(0, -6).Value = Date
ActiveCell.Offset(-1, -5).Select
Selection.Resize(1, 5).Select
Selection.Copy
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Offset(0, 5).Select
Else:
MsgBox "hey, rummy, this cell ain't blank!"
End if
End Su

--
Message posted from http://www.ExcelForum.com