[computerman29642]

I am trying to create a VBA that run when the workbook is opened. If D8 is not blank, then the next cell (E8) will be selected. If D8 is blank, then D8 will be selected. The code needs to look through cell I8.

[Rollin_Again]

Open the Excel workbook. Just to the left of the FILE menu is a small Excel icon. Right click it and select VIEW CODE. When the VBA editor opens look for the combobox at the top of the editor that says "General." Change this value to "Workbook" and the Workbook_Open sub should be created automatically for you. This is where you put your code. Instead of using multiple IF statements you should use a loop to evaluate each cells until you find the first empty cell that meets your condtions. I can help with the loop but need to know what happens if all cells between D8 and I8 contains values?

Private Sub Workbook_Open()

If IsEmpty(Range("D8")) Then
Range("D8").Select
Else
Range("E8").Select
End If

End Sub

Regards,
Rollin

[computerman29642]

I can help with the loop but need to know what happens if all cells between D8 and I8 contains values?

If cells between D8 & I8 contain values, then I would like for cell K4 to be selected.

[Rollin_Again]

Here are a couple of different ways you can do this

Private Sub Workbook_Open()

For Each vCell In Range("D8:I8")
If IsEmpty(vCell) Then
vCell.Select
Exit Sub
End If
Next
Range("K4").Select

End Sub

or

Private Sub Workbook_Open()

If Application.Evaluate("COUNTA(D8:I8)") = 6 Then
Range("K4").Select
Else
vStartCol = 4
If IsEmpty(Cells(8, vStartCol)) Then
Cells(8, vStartCol).Select
Else
Do While vStartCol <= 9 And Not IsEmpty(Cells(8, vStartCol))
vStartCol = vStartCol + 1
Loop
Cells(8, vStartCol).Select
End If
End If

End Sub

Regards,
Rollin

[computerman29642]

Thnaks Rollin. The code(s) you provided works great.