Hi Guys,
I have a perculiar problem. Imagaine 'Sheet 1' is the master, all data is stored here. There is a combination of numbers and text in most fields and the cell formatting is set to 'Text'.
Now, all my existing macros work pefectly.
I am trying to filter all the records in the specified colum to hide rows that contain '0' zero. This is simple when i use the toolbar and apply the custom autofilter manually. However when i use VBA it does the complete opposite.
I have tried converting all the cell formats to 'General', 'Text', 'Number' you name it. Still failing.
I have also tried various other was such as inputting a qeustion mark instead of a zero, meaning that anything less than a charecter should be hidden.
Nothing.
Please take a look at a sample of my code below, and see if you can add any suggestions for correcting the Auto Filter feature.
Thankyou in advance 
Sub ForecastofReturns()
Dim Pasterange As Range, sht1, sht2, sht3, sht4
Dim Msg As String
Dim cell As Range
Dim LastRow As Long
Dim criteria As String
Dim UpBound As Range
Dim LowBound As Range
Set sht1 = Sheets("data1")
Set sht2 = Sheets("data2")
Set sht3 = Sheets("data")
Set sht4 = Sheets("data3")
Application.ScreenUpdating = False
Sheets("data").Unprotect
Sheets("data").Select
'______ PRODUCT 1'
'______ Auto Filter'
'last row number of column to be filtered'
LastRow = sht3.Range("P65536").End(xlUp).Row
'Column to search down and filter out zeros'
sht3.Range("P1:P" & LastRow).AutoFilter Field:=1, Criteria1:="<>0"
'______ Select'
'Automatically Select Used range excluding header'
Set UpBound = sht3.Range("P2")
Set LowBound = sht3.Range("P2").End(xlDown)
Range(UpBound, LowBound).Select
'______ Copy'
Set Pasterange = sht2.Range("B65536").End(xlUp).Offset(1, 0)
Selection.Copy Destination:=Pasterange
'______ Deactivate the Auto filter'
sht3.Range("P1:P" & LastRow).AutoFilter
Display More
:drum: