VBA Functions Question

Hi Gary,

Thanks for that, I have now got the below set up on the after about an hour, and I don't get an error message, but I get zero values for the function. I used the Control Structures spreadsheet from the course. I looked in the Local window and it seems like the value field is empty, an I know we covered it in the course, but I just can't remember for the life of me figure out what it means! I tried what you said, but it did not seem to work. Can you adapt the code below and I will try comparing it with mine and try to figure it out from there.


Option Explicit
Dim Sales As Byte



Sub Bold()

Range("d5").Select

Do Until ActiveCell.Offset(0, -2) = ""

If ActiveCell.Offset(0, -1) = 1 Then
ActiveCell.EntireRow.Font.Bold = True
End If

ActiveCell.Offset(1, 0).Select

Loop

Range("E5").Select
Do Until ActiveCell.Offset(0, -3) = ""
If ActiveCell.Offset(0, -2) = 1 Then
ActiveCell = ProfitMargin(Sales)

End If

ActiveCell.Offset(1, 0).Select
Loop




End Sub

Function ProfitMargin(Sales As Byte)



ProfitMargin = Sales * 0.5




End Function

Regards

Imran