If Then Trouble

[Harlequin007]

Hi guys.

Having a bit of a minor headache with an If Then Statement.

Goes like this:

Dim Response As Integer
MsgBox ("Have You Selected a Cell in Column A and below Row 77"), vbYesNo, ("DVW Workbook")
If Response = 6 Then
ActiveCell.Range("A1:L3").Select

(Lots more code here . . .)

ActiveCell.Offset(2, 0).Range("A1").Select
Else
End If

What am I missing . . . ?

But it doesn't seem to matter whether I press Yes or No


-----------------
Cogito Ergo Sum
-----------------

 

[nasar]

You need to use InputBox to get user response.

 

[SkipVought]

Hi,

You need to assign a value to Response...

    Dim Response As Integer
    Response = MsgBox("Have You Selected a Cell in Column A and below Row 77", vbYesNo)
    If Response = vbYes Then
    ActiveCell.Range("A1:L3").Select
    ActiveCell.Offset(2, 0).Range("A1").Select
    Else
    End If

Skip,

Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[Harlequin007]

Cheers Skip.

I think I missed that.


-----------------
Cogito Ergo Sum
-----------------