Similar like following?
Dim sh2 As Worksheet
Set sh2 =Worksheets("Sheet2")
If sh2.Range("B5")= "ABCD" Then
sh2.Range("A6").Value = "Good Morning America!"