20120810

Select Heading


Sub Insert_Heading()
ActiveSheet.Range(Cells(1, 1), Cells(1, Range("A1").End(xlToRight).Column)).Select
End Sub
Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)