Excel 2010 :: Build A String For Criteria1 Field In VBA For Auto Filtering

Code:

ActiveSheet.Range("$A$1:$AM$14502").AutoFilter Field:=1, Criteria1:= _ "30/06/2013"

When I run the above on my Worksheet to Filter for Rows not equal to 30/06/13 this works fine

I want amend the Criteria1 to a string that is derived off a value in my worksheet I have done this as below where Range("D8").Value is 30/06/13

It is deleting al my data and not keeping the rows with 30/06/13 in it.

Code:

Dim rng As Range
Dim LastQtrDate As Date
Dim LastQtrDateString As String
LastQtrDate = shtControlTab.Range("D8").Value
LastQtrDateString = "" & LastQtrDate

[Code]...