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
'
' 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