Macro to Print Pages 1 to 5 with "5" being a reference to a =count

[Analyst1]

I would really appreciate help with the VB issue outlined below:

1. I have a print area of 10 pages
2. Often only 1 or 2 pages really need to be printed
3. The number of pages to be printed is the result of a "=count" formula in
cell A1 of Sheet1
4. Below is the macro I recorded, can you help edit to solve the problem?

Sub Macro3()
'
' Macro3 Macro
'

'
ExecuteExcel4Macro "PRINT(2,1,1,1,,,,,,,,2,,,TRUE,,FALSE)"
End Sub