Where did Bernie go??

[Dan Tschippert]

Bernie,

Where did you go? I need your help again. I posted a question about columns
on 9/14 and 9/16 but neither you or anyone else answered.

If possible, would you please help me.

Thanks

Dan

 

[Frank Kabel]

Hi
not tested but try
Sub DanRandom()
Dim myCell As Range
dim col_index
for col_index=2 to 4 step 2
Set myCell = Range(cells(18,col_index)).End(xlUp)(2)

myCell.Value = "'" & Format(1000 * Rnd(), "000")
With myCell(1, col_index)
.Value = Now()
.NumberFormat = "hh:mm:ss mmm dd, yyyy"
End With
next col_index

End Sub