View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.programming
Claus Busch Claus Busch is offline
external usenet poster
 
Posts: 3,872
Default select case help

Hi Matthew,

Am Wed, 14 Dec 2016 09:24:22 -0800 (PST) schrieb Matthew Dyer:

case contains "**No PDF**"
'do stuff
case contains "**No Final Package**"
'do different stuff
else
'do other different stuff


another suggestion:

varCheck = Array("No PDF", "No Final Package")

For Each rngC In Range("A1:A10")
For i = LBound(varCheck) To UBound(varCheck)
If InStr(rngC, varCheck(i)) Then Exit For
Next
Select Case i
Case 0
MsgBox " no PDF"
Case 1
MsgBox "no package"
Case Else
MsgBox "Other"
End Select
Next


Regards
Claus B.
--
Windows10
Office 2016