Nate here is the macro code

mqarep · Mar 13th, 2002, 04:32 PM

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 · Mar 13th, 2002, 04:43 PM

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 ]

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 13th, 2002, 04:32 PM	#1
mqarep Board Regular Join Date: Mar 2002 Posts: 91	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

Mar 13th, 2002, 04:43 PM	#2
NateO Legend Join Date: Feb 2002 Location: Minneapolis, Mn, USA Posts: 9,704	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 ]