Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Loop worksheets
Hi,
I have the following code: Sub Hardcode() For Each wks In ActiveWorkbook.Sheets If Range("A4").Value < 400 Then Call PriorYr Call Actuals Call Budget Call Forecast Else End If Next wks Call Delete_Datasheets End Sub As far as I can see it's all correct, but the sheets aren't looping (next wks not working). Does anyone know why or have any suggestions? The total number of sheets in the workbook varies. Thanks merry_fay |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
Loop worksheets
You didn't say which worksheet range to check.
Sub Hardcode() For Each wks In ActiveWorkbook.Sheets If wks.Range("A4").Value < 400 Then Call PriorYr Call Actuals Call Budget Call Forecast Else End If Next wks Call Delete_Datasheets End Sub -- Best Regards, Luke M *Remember to click "yes" if this post helped you!* "merry_fay" wrote: Hi, I have the following code: Sub Hardcode() For Each wks In ActiveWorkbook.Sheets If Range("A4").Value < 400 Then Call PriorYr Call Actuals Call Budget Call Forecast Else End If Next wks Call Delete_Datasheets End Sub As far as I can see it's all correct, but the sheets aren't looping (next wks not working). Does anyone know why or have any suggestions? The total number of sheets in the workbook varies. Thanks merry_fay |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
Loop worksheets
Hi,
the sheets are looping but not the range, try this line If wks.Range("A4").Value < 400 Then Mike "merry_fay" wrote: Hi, I have the following code: Sub Hardcode() For Each wks In ActiveWorkbook.Sheets If Range("A4").Value < 400 Then Call PriorYr Call Actuals Call Budget Call Forecast Else End If Next wks Call Delete_Datasheets End Sub As far as I can see it's all correct, but the sheets aren't looping (next wks not working). Does anyone know why or have any suggestions? The total number of sheets in the workbook varies. Thanks merry_fay |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
For Each Loop | Excel Discussion (Misc queries) | |||
if & Loop | Excel Discussion (Misc queries) | |||
do..loop | Excel Discussion (Misc queries) | |||
DO LOOP in VBA | Excel Discussion (Misc queries) | |||
Next w/o For If/Then Loop | Excel Discussion (Misc queries) |