If you actually have a valid date value in worksheet Table1 cell A1, then the format string would be:
strFormatted = Format(Expression:=Date1, Format:="mmmm yyyy")
If you actually have a valid date value in worksheet Table1 cell A1, then the format string would be:
strFormatted = Format(Expression:=Date1, Format:="mmmm yyyy")