I would like to create a macro that will check if there is any text in cells A2, A3, A4, ect and if it contains any text, a specific macro will follow. At the moment I wrote something that checks if the value is a specific text, (Chernick) but I would like it to run if ANY text is in the cell. How would I go about doing this?
(The actual URL in my code has been replaced to do sensitive data)

Any help would be appreciated, Thanks!


Sub Macro_1()

If ThisWorkbook.Sheets("Sheet45").Range("A2").Value = "Chernick" Then


Workbooks.Open Filename:= _
"URL"
Sheets("Data").Select
Range("Table1[[Assignee]:[Verified in Build - UIS]]").Select
Selection.ClearContents
Range("E11").Select
Sheets("Closed_Data").Select
Range("Table16[[Assignee]:[Verified in Build - UIS]]").Select
Selection.ClearContents
Range("E10").Select
Sheets("Data").Select
Windows("Copy of ER Defects.Find Rates.1.0.xlsm").Activate
Sheets("NEW_60513").Select
Range("B9:BS140").Select
Selection.Copy
Windows("JUL2014 - Chernick - QA Daily Status (Input).xlsx").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("E12").Select
Sheets("Closed_Data").Select
Windows("Copy of ER Defects.Find Rates.1.0.xlsm").Activate
Sheets("NEW_60514").Select
Range("B9:AW1008").Select
Application.CutCopyMode = False
Selection.Copy
Windows("JUL2014 - Chernick - QA Daily Status (Input).xlsx").Activate
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F13").Select
Sheets("Closed-Proj").Select
Application.CutCopyMode = False
ActiveWorkbook.RefreshAll
ActiveWorkbook.Save
ActiveWindow.Close
Sheets("Sheet45").Select

End If

End Sub