Delete rows with blank spaces in column A in multiple worksheets

Hi Sir,

I created a macro as below trying to delete rows which has empty spaces "" in column A. But the macro failed to work properly.

Sub RemoveBlankRows()
    Dim ws As Worksheet, allsheets As Worksheet
    Set allsheets = Sheets(Array("Sheet1", "Sheet2", "Sheet3"))
    For Each ws In allsheets
        Range("A1:A100").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Next ws
End Sub

Can you have a look please? I attached the example file here. Thank you a lot.