Hi Norman,

Thanks for replying, can you also spell what the function means, sorry
amstilla novice wiht VB...

Thanks again!
SV



On Apr 11, 11:14 am, "Norman Jones"
wrote:
Hi SV,

Try replacing:

If sht.Range("A" & i) = "US" Then

with

If InStr(1, sht.Range("A" & i).Value, "US", vbTextCompare) Then

--
Regards,
Norman

"SV" wrote in message

ups.com...



Hi,

I'm using this function to help me count and hide rows in my sheet,

If G5 = True And sht.Name = "Patient Summary" Then

lastRow = sht.UsedRange.Rows.Count + sht.UsedRange.Row - 1

For i = 1 To lastRow
If sht.Range("A" & i) = "US" Then
sht.Rows(i & ":" & i + 8).EntireRow.Hidden = True
End If
Next i

But i'm hitting a road block in terms of specifying a cell on this
SAME SHEET which has more than the word "US" for example if it says
"Drug treated US" or "Incidence US" etc, then how do i tackle the
issue especially when its all on the same sheet. Is it something to do
with string function?

Any help would be greatly appreciated,

thanks!!!
SV- Hide quoted text -

- Show quoted text -