Vba question

[AussieVic]

Hi, i am trying to add Autofiltermode =false to the below, but i dont know how, any takers?

If .Count = 1 Then Exit Sub

so

If.count =1 then remove autofilter then exit sub

 

[Peter_SSs]

Is this what you mean?

If .Count = 1 Then
    ActiveSheet.AutoFilterMode = False
    Exit Sub
End If

If you really want it on one line then

If .Count = 1 Then ActiveSheet.AutoFilterMode = False: Exit Sub

 

[AussieVic]

Peter,that works, just wondering if there is a way to add a msgbox which tells the user "No Data in Col I before the exit sub?

Is this what you mean?

If .Count = 1 Then
    ActiveSheet.AutoFilterMode = False
    Exit Sub
End If

If you really want it on one line then

If .Count = 1 Then ActiveSheet.AutoFilterMode = False: Exit Sub

 

[diddi]

If .Count = 1 Then
    ActiveSheet.AutoFilterMode = False
    msgbox("No Data in Col I")
    Exit Sub
End If