Sub GenSheets() Dim rng As Range Dim cl As Range With Sheets("Quotation") Set rng = .Range(.Cells(6, 1), .Cells(.Rows.Count, 1).End(xlUp)) For Each cl In rng MsgBox (cl.Value) Next cl End With End Sub
|VB Script/Batch: create/remove folders based on a config sheet.||7||37|
|Excel case statements||3||25|
|excel connection properties parameters grayed out||5||29|
|Excel Hyperlink Question||4||31|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
22 Experts available now in Live!