Hi
I have a macro, at the end of which I'd like it to jump to a second macro OR incorporate the second macro into the 1st. I've tried combining them in several different ways, but get an error 13 every time. So, basically, if I can't combine them into 1 macro, then perhaps I can get the 1st to automatically start the second.
Iether way, even if somebody here can combine the 2 into 1, could please still show me how to get one macro start another (for educational purposes)
The 1st code is based on a previous solution (for a different problem!) I received from this forum
Here is the 1st code:
Sub Backwash_Click()
'
'
Dim sec As Integer
sec = range("A2")
Dim step_no As Double
For step_no = 3.1 To 3.91 Step 0.1
Sheets("Sheet1").range("A1") = step_no
Application.Wait Now + TimeSerial(0, 0, sec)
If range("A1").Value = "3.9" Then
Dim step_no1 As Double
For step_no1 = 4.1 To 4.8 Step 0.1
Sheets("Sheet1").range("A1") = step_no1
Application.Wait Now + TimeSerial(0, 0, sec)
Next step_no1
End If
Next step_no
End Sub
here is the 2nd code:
Sub One()
if range("A1").value = 4.8 then
ActiveCell.FormulaR1C1 = "2.3"
End if
End Sub
Thanks
Bookmarks