I have a stupid question

[mudskipper]

The function as it is at the moment only works properly if the data looks like a postcode.

AA1 1AA returns false
SW1 1AA returns true
AAAA gives an error.

So you'll need some sort of error handling if you're going to use it in anger.

[vetran]

try buying something like postcode anywhere. That will correct your address as well.

postcodes are far too much fun to try and keep up with.

[LisaContractorUmbrella]

It works Thanks for all your help guys - really appreciated

[mudskipper]

It works Thanks for all your help guys - really appreciated

That's good. And do you understand it now?

[LisaContractorUmbrella]

That's good. And do you understand it now?

Absolutely

[LisaContractorUmbrella]

Morning -sorry to be a bother but I have a teeny problem with this now

The calculation incorporating the expression works perfectly except when I come to incorporate it in a macro - what have I missed???

Sub Postcode()
'
' Postcode Macro
' Macro4
'

'
Columns("P:P").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("P2").Select
ActiveCell.FormulaR1C1 = "=IF(ValidPostCode(RC[-1]),""OK"",""Incorrect"")"
Range("P3").Select
End Sub

[TheFaQQer]

Sorry, missed your email.

Assuming you want a macro to insert a new column in column P (data being in column O), then validate the post codes using the function, try

Sub PostCode()
    Range("P1").Select
    Selection.EntireColumn.Insert
    ActiveCell.FormulaR1C1 = "=IF(ValidPostCode(RC[-1]),""OK"",""Incorrect"")"
    Range("P1").Select
    Selection.Copy
    Range("O1").Select
    Selection.End(xlDown).Select
    ActiveCell.Offset(0, 1).Activate
    Range(Selection, Selection.End(xlUp)).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

That would stop if there are any blanks in the column, though.

[LisaContractorUmbrella]

No worries TF - thanks for posting

Nope still doesn't work. The macro just returns a blank in the field that I would expect to find the formula

[TheFaQQer]

No worries TF - thanks for posting

Nope still doesn't work. The macro just returns a blank in the field that I would expect to find the formula

I've emailed you my spreadsheet

[LisaContractorUmbrella]

I've emailed you my spreadsheet

You're the best