Find And Bold

Instead of bolding only the cells with an asterick in them it will bold every cell with text in it. I also would like to adapt this code to only search through column A but have not been able to figure it out.

Sub FindIt()
Dim c As Range, firstaddress As String, ws As Worksheet, FindMe As String
FindMe = "*"
For Each ws In ThisWorkbook.Worksheets
With ws.UsedRange
Set c = .Find(FindMe, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
c.Font.bold = True
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
Next ws
End Sub