| Home |
| Search |
| Today's Posts |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
if then else
For Each cell In Range("A4:A" & lr)
d = cell.Value 'change the sheet name to suit Worksheets("Sheet1").PrintPreview Next cell Or, alternately, for the loop above, this looping method... For x = 4 To lr d.Value = Cells(x, "A").Value 'change the sheet name to suit Worksheets("Sheet1").PrintPreview Next Rick |
![Rick Rothstein \(MVP - VB\)[_1613_] is offline](https://www.excelbanter.com/images/SultanThemeVB3R/statusicon/user_offline.gif)
Threaded Mode
