Need help with VBA

[Retro Techy]

I know nothing of VBA, plunged into the deep end today and learning as I go.

I'm trying to do something very simple in a stock sheet, when you click on the button, it subtracts several cells and adds a date stamp.
This is what I've got.

Private Sub CommandButton1_Click()

'Subraction
For i = 3 To 11
Range("B" & i).Value = Range("B" & i).Value - Range("C" & i).Value
Next i

'Date Stamp
With Range("G3:G11")
.Value = Date
.NumberFormat = "dd/mmm"

End Sub

When I try to run it, I get the error message.

Compile Error:
Unexpected End With

Can anyone help?

 

[PaulStat]

I believe you need to end with

With objectExpression
    [ statements ]
End With

 

[Retro Techy]

Thanks for the reply, but I'm still getting the same error message.

Edit - If I take out the time stamp part, it works.

 

[radderfire]

Is there a With Range statement in VBA??? I am just looking at it for the first time and can only see a Range statement, try:

Private Sub CommandButton1_Click()

'Subraction
For i = 3 To 11
Range("B" & i).Value = Range("B" & i).Value - Range("C" & i).Value
Next i

'Date Stamp
Range("G3:G11")
.Value = Date
.NumberFormat = "dd/mmm"

End Sub

 

[Retro Techy]

Thanks for all the help, think I've got it.

Just needed an "End With" at the bottom of the date stamp.

 

[radderfire]

Thanks for all the help, think I've got it.

Just needed an "End With" at the bottom of the date stamp.

Like PaulStat said ...

 

[Retro Techy]

I didn't understand him properly, because I put in.

With objectExpression
[ statements ]
End With

And it failed to work

 

[PaulStat]

Haha sorry you took me a little bit too literally there