For i = 1 To Sheets.Count
	firstSheet = Sheets(1).Range("D3").Value
	If Sheets(i).Rows.Count >= 3 Then
		ActiveSheet = Sheets(i).Range("D3").Value
		Sheets(i).Select
		Sheets(i).Name = Sheets(i).Range("D3").Value
		objExcel.run "Highlight_Results_Macro.xls!testMacro"
	End If
Next