[vba]
With Worksheets(rankSheet.Name)
With .Range(.Cells(LastRow + 7, 2))
.AutoFill.Resize (LastRow + LastRow + 7)
End With
End With
[/vba]
[vba]
With Worksheets(rankSheet.Name)
With .Range(.Cells(LastRow + 7, 2))
.AutoFill.Resize (LastRow + LastRow + 7)
End With
End With
[/vba]
Last edited by Bob Phillips; 02-08-2008 at 03:16 AM.
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote