Copy format of a cell to a range of other cells in VB

[Vol in NC]

I am trying to copy the format of one cell, highlight a range of cells and select visible cells only, and paste the format to those cells. The code is below. The last two lines is what is causing it to error. HELP

Selection.Copy
ActiveSheet.Range("$A$1:$LR$513").AutoFilter Field:=5, Criteria1:="PAB"
Range("F7").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

 

[Llupo01]

Hello, can you pls try this? Hope this helps.

Sub test()
Dim rng As Range
Dim source As Range

'this range below is your source of format you want to have in other cells
' in this case it is "A1"

Set source = [A1]

ActiveSheet.Range("$A$1:$LR$513").AutoFilter Field:=5, Criteria1:="PAB"
Range("F7").Select
Range(Selection, Selection.End(xlToRight).End(xlDown)) _
.SpecialCells(xlCellTypeVisible).Select


Set rng = Selection

rng.NumberFormat = source.NumberFormat


End Sub

regards,

Tom.