How to use the code : Private Sub CommandButton1_Click()

[Bretty]

How should the code be to use: Private Sub CommandButton1_Click()

To run this:
Sub Hide_Print_Unhide()
Dim rw As Long
Application.ScreenUpdating = False
With Sheets("Sheet1")
For rw = 1 To 30
If .Cells(rw, "A").Value = "" Then _
.Rows(rw).Hidden = True
Next rw
.PrintOut ' for testing use .PrintPreview
.Range("A1:A30").EntireRow.Hidden = False
End With
Application.ScreenUpdating = True
End Sub

[Gania]

Is the commandbutton on sheet1. If yes then,

Private Sub CommandButton1_Click()
Dim rw As Long
Application.ScreenUpdating = False
'Me is the object that owns the code
'in this case Sheet1
With Me 'Sheets("Sheet1")
For rw = 1 To 30
If .Cells(rw, "A").Value = "" Then _
.Rows(rw).Hidden = True
Next rw
.PrintOut ' for testing use .PrintPreview
.Range("A1:A30").EntireRow.Hidden = False
End With
Application.ScreenUpdating = True
End Sub

Another option would be to just call that same routine:

Private Sub CommandButton1_Click()
call Hide_Print_Unhide
end sub

[Shurod]

There is another code that you can try :

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, 

ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long 
Public Event ErrorDownload (FromPathName As String, ToPathName As String) 
 Public Event DownloadComplete (FromPathName As String, ToPathName As String) 
 Public Function DownloadFile (FromPathName As String, ToPathName As String) 
 If URLDownloadToFile (0, FromPathName, ToPathName, 0, 0) = 0 Then 
 DownloadFile = True 
 RaiseEvent DownloadComplete (FromPathName, ToPathName) 
 Else 
 DownloadFile = False 
 RaiseEvent ErrorDownload (FromPathName, ToPathName) 
 End If 
 End Function 
 Private Sub Command1_Click () 
 Call DownloadFile