Paste special code that ignores hidden cells

[Dallie]

Hello,

I am after an upgrade to my simple paste special code. I want to allow the code to ignore hidden columns but I have no idea how to begin other than presuming that the code will be probably using an If statement and entirecolumn.hidden = true/false statement? But I get lost from there.

This is the code I that I need upgraded:

Sub PasteSpecial_Values()


With Selection
.PasteSpecial Paste:=xlPasteValues
End With


End Sub

Could somebody please help me with my code upgrade?

Thanks Dallie