Please help me modify the VBA code listed below.

If the value for Volume is Null then return a value of zero.

Thanks,



With Sheets("Sheet1")
.Cells(RowCount, "A") = Team
.Cells(RowCount, "B") = Volume
.Cells(RowCount, "C") = Date
End With

With Sheets("Sheet1")
.Cells(RowCount, "A") = Team
.Cells(RowCount, "B") = iif(isnull(Volume) = true,0,Volume)
.Cells(RowCount, "C") = Date
End With

hth

Keith

Sub routine()
With Sheets("Sheet1")
.Cells(RowCount, "A") = Team
If Volume = "" Then
.Cells(RowCount, "B") = 0
Else
.Cells(RowCount, "B") = Volume
End If
.Cells(RowCount, "C") = Date
End With
End Sub

--
Gary''s Student - gsnu200755


"Dean P." wrote:


Please help me modify the VBA code listed below.

If the value for Volume is Null then return a value of zero.

Thanks,



With Sheets("Sheet1")
.Cells(RowCount, "A") = Team
.Cells(RowCount, "B") = Volume
.Cells(RowCount, "C") = Date
End With