View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
waveracerr[_19_] waveracerr[_19_] is offline
external usenet poster
 
Posts: 1
Default Excel VBA - Help looping through all but 2 workbooks

I need to loop through all workbooks except two that I specify. I hav
the code to loop through all workbooks except the workbook containin
the code but I cannot modify the code to include a second workbook th
code should skip.

Sub test()
Dim wb As Workbook

Application.DisplayAlerts = False

'Loop through each open workbook
For Each wb In Workbooks
If Not (wb.Name = ThisWorkbook.Name) Then
wb.Activate
Range("H10") = "CHECK"
End If
Next wb
End Sub

I tried replacing the If statement with:
If Not (wb.Name = ThisWorkbook.Name) Or (wb.Name = "test.xls"
Then

....with no luck.

Thanks for any assistance

--
Message posted from http://www.ExcelForum.com