Nate here is the macro code

[mqarep]

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 3/13/02 by Steven Beers
'

'
Application.Run "ATPVBAEN.XLA!Random", ActiveSheet.Range("$A$1"), 1, 1, 1 _
, , 1, 2
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 2
End Sub

 

[NateO]

Try ze following:

Sub Macro1()
'
' Macro1 Macro
' Macro recorded 3/13/02 by Steven Beers
'

'
ActiveSheet.Range("$A$1").ClearContents
Application.Run "ATPVBAEN.XLA!Random", ActiveSheet.Range("$A$1"), 1, 1, 1 _
, , 1, 2
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 2
End Sub


I have a buddy in Toronto named Stevie Beers......

Cheers,

Nate
This message was edited by NateO on 2002-03-13 15:45