excel - Subscript out of range for If function in VBA -


i'm doing payroll application , keep getting message when trying if function vba script.

its first line of if statement giving me hard time.

sub payperiod()     if sheets("sheet30").range("e17") = "1" 'error here         sheets("week 1").select     elseif sheets("sheet30").range("e17") = "2"         sheets("week 2").select     elseif sheets("sheet30").range("e17") = "3"         sheets("week 3").select     elseif sheets("sheet30").range("e17") = "4"     end if end sub 

try using variables , declare them properly. need qualify sheet location. declare variables @ top, assign them desired values once , use variable in code. way, if sheet names or cell references change, can adjust macro in 1 place. (i've left .select statement in example, note hardly ever need select elements work them.

option explicit  sub payperiod()  dim ws worksheet dim rng range set ws = thisworkbook.sheets("sheet30") set rng = ws.range("e17")  if rng = "1"    ws.range("week1").select      [rest of code]  end sub 

Comments

Popular posts from this blog

apache - Remove .php and add trailing slash in url using htaccess not loading css -

javascript - jQuery show full size image on click -