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
|