Save ComboBox1 & TextBox4 to Sheet roofing B8

[toecutter]

hi
i am gettin a "complie error" message box with
"invalid or unqualified reference"
new to VBA so any help will be appreciated

thx
toe

Private Sub CommandButton3_Click() 
     
     'Exit
     
    s = MsgBox("Save roof?", vbYesNo) 
    If s = 6 Then 
         
        s = .Range("B8").End(xlUp).Offset(1, 0).Row 
        Cells(s, 2) = ComboBox1.Value 
        Cells(s, 3) = TextBox4.Value 
    End If 
     
     'ask to save roof material to roofing sheet B8 then B9 then B10 etc and roof quanitiy to column C8 then c9 then C10 etc
     'if yes
     'save roof amount from TextBox4 to roofing sheet B8 then B9 then B10 etc and roof quanitiy to column C8 then c9 then C10 etc
     'then exit
     'if no
     'then exit
    Unload Me 
End Sub

 

[Norie]

toecutter

Try not to cross post, I've answered you over on OzGrid.

Remember the people on these sites are from all around the world, in many different time zones.